From 1a7326555a346b07e39fb54dbe2658a5042f140d Mon Sep 17 00:00:00 2001
From: Dory <dory@dory.moe>
Date: Sat, 9 Dec 2023 08:48:27 -0800
Subject: [PATCH] correct d8p2 and add debug print

---
 08/part2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/08/part2.pl b/08/part2.pl
index 302035d..9b05c28 100644
--- a/08/part2.pl
+++ b/08/part2.pl
@@ -8,10 +8,11 @@ From r To :- From to _-To.
 answer(Answer) :-
     starts(Starts),
     routes(Starts, Routes),
-    collapse_routes(Routes, _-(Answer-_-_)).
+    collapse_routes(Routes, _-(_-Answer-_)).
 
 collapse_routes([X], X).
 collapse_routes(Routes, Collapsed) :-
+    writef('Collapsing: %t\n', [Routes]),
     sort(2, @=<, Routes, [Route1, Route2 | CdrRoutes]),
     unify2(Route1, Route2, 0-0-0-0, [], NewRoute),
     collapse_routes([NewRoute | CdrRoutes], Collapsed).