Part 2 point-free

[advent-of-code-18.git] / src / advent01 / advent01.hs

diff --git a/src/advent01/advent01.hs b/src/advent01/advent01.hs
index d833bbcc96814d40be8b7094383e40c067837397..e1935f475587e9f1ee771303b31d4e1d659e5681 100644 (file)
--- 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)