From: Neil Smith <neil.git@njae.me.uk>
Date: Thu, 15 Dec 2016 11:09:13 +0000 (+0000)
Subject: Tidying
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=b003f4793d7c5d5dc60bbdfb6757c9fbec509b68;p=advent-of-code-16.git

Tidying
---

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