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
Part 2 now point-free
[advent-of-code-19.git]
/
advent01
/
src
/
advent01.hs
diff --git
a/advent01/src/advent01.hs
b/advent01/src/advent01.hs
index 5c70f596c4e4d92062f30a2bee20778abbe51e39..014fbb26f8093bf24c87fbce6990715bfabc0904 100644
(file)
--- a/
advent01/src/advent01.hs
+++ b/
advent01/src/advent01.hs
@@
-28,7
+28,7
@@
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