2019 day 1

Dependencies

Change contents

• file addition: 2019 (d--r------)
  [1.0]
• file addition: day1.hs (----------)
  [0.7]
  + import Data.List

  +

  + fuel :: Integer -> Integer

  + fuel m = (m `div` 3) - 2

  +

  + main = getContents >>= print . sum . map (fuel . read) . words
• file addition: day1p2.hs (----------)
  [0.7]
  + import Data.List

  +

  + fuel :: Integer -> Integer

  + fuel m = (m `div` 3) - 2

  +

  + recursiveFuel :: Integer -> Integer

  + recursiveFuel = sum . takeWhile (> 0) . drop 1 . iterate fuel

  +

  + main = getContents >>= print . sum . map (recursiveFuel . read) . words