Solve first puzzle (in Haskell)

tjpalmer · Dec 2, 2019 · c02b407 · c02b407
1 parent b239ae4
commit c02b407
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/2019/01/sumfuel.hs b/2019/01/sumfuel.hs
@@ -0,0 +1,8 @@
+main = do
+  content <- readFile "sumfuel-input.txt"
+  let contentLines = lines content
+  let masses = map (read :: String -> Int) contentLines
+  let fuels = map (findFuel) masses
+  print (sum fuels)
+
+findFuel mass = (div mass 3) - 2