Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

day4, cosmetical

This commit is contained in:
Gattix 2021-12-10 15:25:18 +01:00
parent 6e0f63943f
commit 850ff2e797
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2021/day04/day04.hs
View File

@ -12,8 +12,7 @@ main = do
(i:is) <- splitOn "\n\n" <$> readFile "input"
let nums = read $ '[' : i ++ "]" :: [Int]
let boards =
map (map (flip zip (repeat False) . map read . words) . lines) is :: [[[( Int
, Bool)]]]
map (map (flip zip (repeat False) . map read . words) . lines) is :: [Board]
let (newBoards, newNums) = bingo (boards, nums)
print $ countScore newNums $ getWinBoard newBoards
let ([lb], ln) = loseBoard (newBoards, newNums)