From e244d245682d465eb3784ac0ac2ba13342628810 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Thu, 15 Dec 2016 07:54:10 +0000
Subject: [PATCH] Priority queue version working
---
advent11p.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/advent11p.hs b/advent11p.hs
index 6e4e47d..24955b9 100644
--- a/advent11p.hs
+++ b/advent11p.hs
@@ -106,9 +106,9 @@ candidates agendum closed = newCandidates
candidate = current agendum
previous = trail agendum
succs = legalSuccessors $ successors candidate
- -- nonloops = (succs \\ previous) \\ closed
- excludable = previous ++ closed
- nonloops = filter (\s -> not $ (canonical s) `elem` excludable) succs
+ -- excludable = previous ++ closed
+ -- nonloops = filter (\s -> not $ (canonical s) `elem` excludable) succs
+ nonloops = filter (\s -> not $ (canonical s) `elem` closed) succs
newCandidates = map (\a -> (cost a, a)) $ map (\n -> makeAgendum n) nonloops
makeAgendum new = Agendum {current = new,
trail = (canonical candidate):previous,
--
2.43.0