projects
/
advent-of-code-19.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tidying
[advent-of-code-19.git]
/
advent01
/
src
/
advent01.hs
diff --git
a/advent01/src/advent01.hs
b/advent01/src/advent01.hs
index 5c70f596c4e4d92062f30a2bee20778abbe51e39..0b9dec57dc93b111bea9a67e2eb402464c681696 100644
(file)
--- a/
advent01/src/advent01.hs
+++ b/
advent01/src/advent01.hs
@@
-21,14
+21,14
@@
part1 :: [Int] -> Int
part1 = sum . map fuelRequired
part2 :: [Int] -> Int
part1 = sum . map fuelRequired
part2 :: [Int] -> Int
-part2= sum . map fuelForFuel
+part2
= sum . map fuelForFuel
fuelRequired :: Int -> Int
fuelRequired m = (m `div` 3) - 2
fuelForFuel :: Int -> Int
fuelRequired :: Int -> Int
fuelRequired m = (m `div` 3) - 2
fuelForFuel :: Int -> Int
-fuelForFuel
m = sum $ takeWhile (> 0) $ drop 1 $ iterate fuelRequired m
+fuelForFuel
= sum . takeWhile (> 0) . drop 1 . iterate fuelRequired
-- Parse the input file
-- Parse the input file