Gone point-free

diff --git a/advent11/Main.hs b/advent11/Main.hs
index e6c72f6075d5f67f7546b6f35ea21a2ebea7b325..835b0e6b189bd3885ebcc9ad0d01866fba0e2038 100644 (file)
--- a/advent11/Main.hs
+++ b/advent11/Main.hs
@@ -20,9 +20,11 @@ main =
       print $ part2 stones
 
 part1, part2 :: [Int] -> Int
-part1 stones = length $ (!! 25) $ iterate blink stones
-part2 stonesList = MS.size $ (!! 75) $ iterate blinkMS stones
-  where stones = MS.fromList stonesList
+-- part1 stones = length $ (!! 25) $ iterate blink stones
+-- part2 stonesList = MS.size $ (!! 75) $ iterate blinkMS stones
+--   where stones = MS.fromList stonesList
+part1 = length . (!! 25) . iterate blink 
+part2 = MS.size . (!! 75) . iterate blinkMS . MS.fromList
 
 blink :: [Int] -> [Int]
 blink = concatMap expandStone