rhi/aoc2023
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

more poking

Browse source
This commit is contained in:
rhiannon morris 2023-12-07 20:18:09 +01:00
parent 8d1ac2291e
commit c7558e0ed8
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
day7.pl
View file

@ -29,7 +29,8 @@ rank(five, 6).
hand_rank(C, R) :- hand(C, H), rank(H, R). hand_rank(C, R) :- hand(C, H), rank(H, R).
compare_rank(X, C1, C2) :- hand_rank(C1, R1), hand_rank(C2, R2), compare(X, R1, R2). compare_rank(X, C1, C2) :-
hand_rank(C1, R1), hand_rank(C2, R2), compare(X, R1, R2).
compare_hand(X, C1-_, C2-_) :- compare_hand(X, C1-_, C2-_) :-
compare_rank(X0, C1, C2), compare_rank(X0, C1, C2),
@ -39,10 +40,7 @@ compare_hand(X, C1-_, C2-_) :-
total(Xs, R) :- total(1, Xs, R). total(Xs, R) :- total(1, Xs, R).
total(_, [], 0). total(_, [], 0).
total(I, [_-X|Xs], R) :- total(I, [_-X|Xs], R) :- I1 is I + 1, total(I1, Xs, R0), R is R0 + (I * X).
I1 is I + 1,
total(I1, Xs, R0),
R is R0 + (I * X).
:- use_module(library(dcg/basics)). :- use_module(library(dcg/basics)).
@ -52,6 +50,7 @@ cards(Cs) --> card(A), card(B), card(C), card(D), card(E), {Cs = [A,B,C,D,E]
bid(N) --> digits(Ds), {number_chars(N, Ds)}. bid(N) --> digits(Ds), {number_chars(N, Ds)}.
spaces --> " ", (spaces ; []). spaces --> " ", (spaces ; []).
line(Cs-B) --> cards(Cs), spaces, bid(B). line(Cs-B) --> cards(Cs), spaces, bid(B).
lines([]) --> "\n" ; []. lines([]) --> "\n" ; [].
lines([L|Ls]) --> line(L), "\n", lines(Ls). lines([L|Ls]) --> line(L), "\n", lines(Ls).
@ -60,7 +59,7 @@ value('J', 11).
value('Q', 12). value('Q', 12).
value('K', 13). value('K', 13).
value('A', 14). value('A', 14).
value(C, N) :- char_code(C, N0), N is N0 - 0x30, N >= 0, N =< 9. value(C, N) :- number_chars(N, [C]).
part1(File) :- part1(File) :-
@ -70,9 +69,9 @@ part1(File) :-
writeln(R), !. writeln(R), !.
part1_to_part2(Xs-B, Ys-B) :- maplist(joker, Xs, Ys).
joker(11, 0). joker(11, 0).
joker(X, X) :- X \= 11. joker(X, X) :- X \= 11.
part1_to_part2(Xs-B, Ys-B) :- maplist(joker, Xs, Ys).
part2(File) :- part2(File) :-
phrase_from_file(lines(Ls0), File), phrase_from_file(lines(Ls0), File),