From 22548a43391eb44fa2e8193e9dee265f0444a773 Mon Sep 17 00:00:00 2001
From: Duy Truong <duytruong@google.com>
Date: Thu, 7 Dec 2023 13:43:09 -0800
Subject: [PATCH] readability improvement

---
 07/part2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/07/part2.pl b/07/part2.pl
index c3fc62a..c444678 100644
--- a/07/part2.pl
+++ b/07/part2.pl
@@ -29,7 +29,7 @@ type(Hand, 2) :- count_hand(Hand, 2, 4).
 type(Hand, 1) :- count_hand(Hand, 1, _).
 
 count_hand(Hand, NMaxCard, NUniqueCards) :-
-    convlist([X, X]>>(X =\= 1), Hand, NoJokerHand),
+    exclude(=:=(1), Hand, NoJokerHand),
     maplist(count(NoJokerHand), NoJokerHand, Counts),
     max_member(MaxCountNoJoker, Counts),
     count(Hand, 1, NJokers),