Day1

2021-12-05 19:47:42 +01:00 · 2021-12-05 19:47:42 +01:00 · bf2354d2ee
parent 4e87850e53
commit bf2354d2ee
2 changed files with 2009 additions and 0 deletions
--- a/2021/day01/day01.hs
+++ b/2021/day01/day01.hs
@ -0,0 +1,9 @@
+main :: IO ()
+main = do
+  input <- map read . lines <$> readFile "input"
+  print $ day1 input
+  print $ day1 $ zipWith3 (\x y z->x+y+z) input (tail input) (tail $ tail input)
+
+
+day1 :: [Int] -> Int
+day1 a = sum $ map fromEnum $ zipWith (<) a (tail a)
--- a/2021/day01/input
+++ b/2021/day01/input