bert/adventofcode
1
0
Fork 0
mirror of https://github.com/bertptrs/adventofcode.git synced 2025-12-25 21:00:31 +01:00
Code Issues Projects Releases Wiki Activity

Fix Haskell compilation on Arch Linux.

Browse Source
This commit is contained in:
Bert Peters
2017-12-27 19:10:40 +01:00
parent 2939822329
commit a751456596
3 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
2017/day-15/solution.hs
View File

@@ -16,7 +16,7 @@ genB' n = filter (divisible 8) $ genB n
main :: IO ()
main = do
let aStart = 618
let bStart = 814
bStart = 814
print $ length $ filter judge $ take 40000000 $ drop 1 $ zip (genA aStart) (genB bStart)
print $ length $ filter judge $ take 5000000 $ zip (genA' aStart) (genB' bStart)