diff options
author | Akshay <[email protected]> | 2020-12-09 05:33:39 +0000 |
---|---|---|
committer | Akshay <[email protected]> | 2020-12-09 05:33:39 +0000 |
commit | 644c38de8b633dc5e03bff5216f68b2bfde4a645 (patch) | |
tree | ac2c0056739d38bba7855c3aa988ae190a1b158c /execs/Day08.hs | |
parent | 06b14ed84c0a8ec11462f0a6f7397c3e3a52654d (diff) |
add initial solution for day09
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 |