X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;ds=sidebyside;f=advent01%2Fsrc%2Fadvent01.hs;h=0b9dec57dc93b111bea9a67e2eb402464c681696;hb=3add87c991ec85f531c2cffea142b00c52d274a6;hp=5c70f596c4e4d92062f30a2bee20778abbe51e39;hpb=73861022e114fe3b2d6625301f4ac5fc973a8a6e;p=advent-of-code-19.git

diff --git a/advent01/src/advent01.hs b/advent01/src/advent01.hs
index 5c70f59..0b9dec5 100644
--- a/advent01/src/advent01.hs
+++ b/advent01/src/advent01.hs
@@ -21,14 +21,14 @@ part1 :: [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
-fuelForFuel m = sum $ takeWhile (> 0) $ drop 1 $ iterate fuelRequired m
+fuelForFuel = sum . takeWhile (> 0) . drop 1 . iterate fuelRequired
 
 
 -- Parse the input file