dory/aoc23
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

readability improvement

Browse Source
This commit is contained in:
Duy Truong 2023-12-07 13:43:09 -08:00
parent bff06901be
commit 22548a4339
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
07/part2.pl
View File

@ -29,7 +29,7 @@ type(Hand, 2) :- count_hand(Hand, 2, 4).
type(Hand, 1) :- count_hand(Hand, 1, _). type(Hand, 1) :- count_hand(Hand, 1, _).
count_hand(Hand, NMaxCard, NUniqueCards) :- count_hand(Hand, NMaxCard, NUniqueCards) :-
convlist([X, X]>>(X =\= 1), Hand, NoJokerHand), exclude(=:=(1), Hand, NoJokerHand),
maplist(count(NoJokerHand), NoJokerHand, Counts), maplist(count(NoJokerHand), NoJokerHand, Counts),
max_member(MaxCountNoJoker, Counts), max_member(MaxCountNoJoker, Counts),
count(Hand, 1, NJokers), count(Hand, 1, NJokers),