quickdudley/adventofcode - Change TCCBGQEUNGIA56UAO3ARSAXRJCXIISN47ICBSO2NDGSR2C33QPSQC

2019 day 1

Created by Jeremy List on December 21, 2019

TCCBGQEUNGIA56UAO3ARSAXRJCXIISN47ICBSO2NDGSR2C33QPSQC

In channels

main

Change contents

File addition: 2019 (d--x------)
[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