Day 1, part 1

zetter · Dec 10, 2022 · 4ae880f · 4ae880f
commit 4ae880f
Show file tree

Hide file tree

Showing 4 changed files with 2,282 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1 @@
+dist-newstyle
diff --git a/day_1/Main.hs b/day_1/Main.hs
@@ -0,0 +1,6 @@
+import Data.List.Split (splitOn)
+
+main = do
+  contents <- readFile "data.txt"
+  let groups = map (map read . lines) (splitOn "\n\n" contents)
+  print (maximum (map sum groups))