Day 1b with debug

tjpalmer · Dec 2, 2019 · 56f76ad · 56f76ad
1 parent c02b407
commit 56f76ad
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/2019/01/sumfueldeep.hs b/2019/01/sumfueldeep.hs
@@ -0,0 +1,17 @@
+import Debug.Trace
+
+main = print (findFuelDeep 1969)
+
+mainMore = do
+  content <- readFile "sumfuel-input.txt"
+  let contentLines = lines content
+  let masses = map (read :: String -> Int) contentLines
+  let fuels = map (findFuelDeep) masses
+  print (sum fuels)
+
+findFuel mass = (div mass 3) - 2
+
+findFuelDeep mass
+  | fuelMass <= 0 = trace ("a " ++ show mass ++ ", " ++ show fuelMass) $ 0
+  | otherwise = trace ("b " ++ show mass ++ ", " ++ show fuelMass) $ fuelMass + findFuelDeep fuelMass
+  where fuelMass = findFuel mass