Tidying

diff --git a/advent15.hs b/advent15.hs
index 31866c09db198766b069df9fbdc08aaba6dc4765..27793c14b58618c03598a7d1d09e22d7345cf6cf 100644 (file)
--- a/advent15.hs
+++ b/advent15.hs
@@ -15,7 +15,6 @@ part1 disks = print $ head $ filter (canFall disks) [0..]
 
 part2 :: [Disk] -> IO ()
 part2 disks = print $ head $ filter (canFall disks2) [0..]
-    -- where disks2 = disks ++ [(\i -> (11 + 7 + 0 + i) `mod` 11 == 0)]
     where disks2 = disks ++ [diskify 7 11 0]
 
 canFall :: [Disk] -> Int -> Bool