Priority queue version working

diff --git a/advent11p.hs b/advent11p.hs
index 6e4e47d83d8ca97c9641f7a458a84239baa0bb0d..24955b90358d463d04653f3207e28a8f1db3c28d 100644 (file)
--- 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,