Day 01

1 files changed, 31 insertions, 0 deletions

diff --git a/day01/main.hs b/day01/main.hs
new file mode 100644
index 0000000..e4dbb1b
--- /dev/null
+++ b/day01/main.hs
@@ -0,0 +1,31 @@
+module Main where
+
+import Utils
+
+diff :: [Int] -> [Int]
+diff [] = []
+diff xs = zipWith (-) (tail xs) xs
+
+e1 :: [Int] -> IO ()
+e1 ints = do
+  let result = ints $> diff .> filter (> 0) .> length
+  print result
+
+e2 :: [Int] -> IO ()
+e2 ints = do
+  let result =
+        zip3 ints (tail ints) (tail (tail ints))
+          $> map (\(x, y, z) -> x + y + z)
+          .> diff
+          .> filter (> 0)
+          .> length
+
+  print result
+
+main :: IO ()
+main =
+  do
+    contents <- getContents
+    let ints = map read (lines contents)
+    e1 ints
+    e2 ints