projects
/
advent-of-code-16.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Tidying
[advent-of-code-16.git]
/
advent15.hs
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