X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-19.git;a=blobdiff_plain;f=advent01%2Fsrc%2Fadvent01.hs;h=014fbb26f8093bf24c87fbce6990715bfabc0904;hp=5c70f596c4e4d92062f30a2bee20778abbe51e39;hb=7a7c6df04a4d7088c08e0b6bebdcf311c492036a;hpb=6d3d9662f4481a1dae36c7ab9705b376bc7c7025

diff --git a/advent01/src/advent01.hs b/advent01/src/advent01.hs
index 5c70f59..014fbb2 100644
--- 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