add initial solution to day11

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)]
 combos top s = startEvalMemo $ go 0
     where go c
             | c == top = return 1
-            | otherwise = do
-                let cs = filter (`elem` s) $ map (+c) [1,2,3]
-                sum <$> mapM (memo go) cs
+            | otherwise = sum <$> mapM (memo go) (filter (`elem` s) $ map (+c) [1,2,3])
 
 main :: IO ()
 main = do