day1

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>

Day1/1.hs

@@ -0,0 +1,4 @@
+import Lib (calories)
+
+main :: IO ()
+main = print . maximum . calories =<< readFile "input"

Day1/2.hs

@@ -0,0 +1,6 @@
+import Data.List (sortOn)
+import Data.Ord (Down (Down))
+import Lib (calories)
+
+main :: IO ()
+main = print . sum . take 3 . sortOn Down . calories =<< readFile "input"

Day1/Lib.hs

@@ -0,0 +1,16 @@
+module Lib (calories) where
+
+calories :: String -> [Integer]
+calories input =
+  map (sum . map read) $
+    filter (not . null) $ split "" $ split '\n' input
+
+split :: Eq a => a -> [a] -> [[a]]
+split del =
+  foldr
+    ( \c (x : xs) ->
+        if c == del
+          then [] : x : xs
+          else (c : x) : xs
+    )
+    [[]]