Initial commit

.gitignore

@@ -0,0 +1,2 @@
+*.hi
+*.o

1.hs

@@ -0,0 +1,12 @@
+{-# LANGUAGE ScopedTypeVariables #-}
+import Data.List.Split
+import Data.List
+
+main = do
+    lines <- readFile "1.in"
+    putStrLn . show . solveB $ lines
+    where
+        solveA = maximum                       . groupElves
+        solveB = sum . take 3 . reverse . sort . groupElves
+        groupElves = map ( sum . map parseInt . words) . splitOn "\n\n"
+        parseInt = read :: String -> Integer