diff options
Diffstat (limited to 'execs/Day10.hs')
-rw-r--r-- | execs/Day10.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/execs/Day10.hs b/execs/Day10.hs index c42a550..40d3d61 100644 --- a/execs/Day10.hs +++ b/execs/Day10.hs | |||
@@ -16,9 +16,7 @@ diffs s = product $ ($ q s) <$> [howMany (==1), howMany (==3)] | |||
16 | combos top s = startEvalMemo $ go 0 | 16 | combos top s = startEvalMemo $ go 0 |
17 | where go c | 17 | where go c |
18 | | c == top = return 1 | 18 | | c == top = return 1 |
19 | | otherwise = do | 19 | | otherwise = sum <$> mapM (memo go) (filter (`elem` s) $ map (+c) [1,2,3]) |
20 | let cs = filter (`elem` s) $ map (+c) [1,2,3] | ||
21 | sum <$> mapM (memo go) cs | ||
22 | 20 | ||
23 | main :: IO () | 21 | main :: IO () |
24 | main = do | 22 | main = do |