diff options
Diffstat (limited to 'execs/Day08.hs')
-rw-r--r-- | execs/Day08.hs | 4 |
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 | |||
40 | main :: IO () | 40 | main :: IO () |
41 | main = do | 41 | main = 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 |