Browse Source

day1

day7backup
Arranun 2 years ago
parent
commit
b338b3c2ca
  1. 17
      day1.hs

17
day1.hs

@ -0,0 +1,17 @@
main = do
content <- getContents
putStrLn (show $ foldl getOp 0 (lines content))
getOp :: Int -> String -> Int
getOp acc number = acc + (math (read number)) + getFuel 0 (math(read number))
getFuel :: Int -> Int -> Int
getFuel acc fuel = do
if (math fuel) > 0
then acc + (math fuel) + getFuel acc (math fuel)
else
acc
math :: Int -> Int
math input = ((input `div` 3) - 2)
Loading…
Cancel
Save