aboutsummaryrefslogtreecommitdiff
path: root/execs/Day08.hs
diff options
context:
space:
mode:
Diffstat (limited to 'execs/Day08.hs')
-rw-r--r--execs/Day08.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/execs/Day08.hs b/execs/Day08.hs
index 7d3fce8..6546990 100644
--- a/execs/Day08.hs
+++ b/execs/Day08.hs
@@ -40,6 +40,6 @@ genAll (acc:rest) = map (acc:) $ genAll rest
40main :: IO () 40main :: IO ()
41main = do 41main = do
42 n <- map (parseLine . words) . lines <$> readFile "input/08" 42 n <- map (parseLine . words) . lines <$> readFile "input/08"
43 let solve1 = run 0 0 Set.empty . Map.fromList . zip [0..] 43 let solve1 = run 0 0 mempty . Map.fromList . zip [0..]
44 print $ solve1 n 44 print $ solve1 n
45 print $ solve1 $ head $ filter (doesEnd 0 0 Set.empty . Map.fromList . zip [0..]) $ genAll n 45 print $ solve1 $ head $ filter (doesEnd 0 0 mempty . Map.fromList . zip [0..]) $ genAll n