Please don’t rely on this Gitea instance being around forever. If any of your build scripts use my (kageru’s) projects hosted here, check my Github or IEW on Github for encoding projects. If you can’t find what you’re looking for there, tell me to migrate it.
day7backup
Arranun 3 years ago
parent c626cdfa96
commit b338b3c2ca

@ -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