X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=src%2Fadvent01%2Fadvent01.hs;h=e1935f475587e9f1ee771303b31d4e1d659e5681;hb=63a1cfb10f4c516479a41c48ca446a653266da50;hp=d833bbcc96814d40be8b7094383e40c067837397;hpb=09aa30f8d65d40f675e942ee641905670fccd3e7;p=advent-of-code-18.git

diff --git a/src/advent01/advent01.hs b/src/advent01/advent01.hs
index d833bbc..e1935f4 100644
--- a/src/advent01/advent01.hs
+++ b/src/advent01/advent01.hs
@@ -26,7 +26,7 @@ part1 :: [Int] -> Int
 part1 = sum 
 
 part2 :: [Int] -> Int
-part2 changes = snd $ head $ dropWhile unRepeated $ scanl merge (S.empty, 0) $ cycle changes
+part2 = snd . head . dropWhile unRepeated . scanl merge (S.empty, 0) . cycle 
 
 merge :: (IntSet, Int) -> Int -> (IntSet, Int)
 merge (frequencies, frequency) change = (S.insert frequency frequencies, frequency + change)