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

correct d8p2 and add debug print

Browse Source
This commit is contained in:
Dory 2023-12-09 08:48:27 -08:00
parent 65267a5850
commit 1a7326555a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
08/part2.pl
View File

@ -8,10 +8,11 @@ From r To :- From to _-To.
answer(Answer) :- answer(Answer) :-
starts(Starts), starts(Starts),
routes(Starts, Routes), routes(Starts, Routes),
collapse_routes(Routes, _-(Answer-_-_)). collapse_routes(Routes, _-(_-Answer-_)).
collapse_routes([X], X). collapse_routes([X], X).
collapse_routes(Routes, Collapsed) :- collapse_routes(Routes, Collapsed) :-
writef('Collapsing: %t\n', [Routes]),
sort(2, @=<, Routes, [Route1, Route2 | CdrRoutes]), sort(2, @=<, Routes, [Route1, Route2 | CdrRoutes]),
unify2(Route1, Route2, 0-0-0-0, [], NewRoute), unify2(Route1, Route2, 0-0-0-0, [], NewRoute),
collapse_routes([NewRoute | CdrRoutes], Collapsed). collapse_routes([NewRoute | CdrRoutes], Collapsed).