X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent15.hs;h=27793c14b58618c03598a7d1d09e22d7345cf6cf;hb=b003f4793d7c5d5dc60bbdfb6757c9fbec509b68;hp=31866c09db198766b069df9fbdc08aaba6dc4765;hpb=42fed81078c6babc676774a0c2816d49209f7953;p=advent-of-code-16.git

diff --git a/advent15.hs b/advent15.hs
index 31866c0..27793c1 100644
--- 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