day4, cosmetical
This commit is contained in:
parent
6e0f63943f
commit
850ff2e797
|
@ -12,8 +12,7 @@ main = do
|
||||||
(i:is) <- splitOn "\n\n" <$> readFile "input"
|
(i:is) <- splitOn "\n\n" <$> readFile "input"
|
||||||
let nums = read $ '[' : i ++ "]" :: [Int]
|
let nums = read $ '[' : i ++ "]" :: [Int]
|
||||||
let boards =
|
let boards =
|
||||||
map (map (flip zip (repeat False) . map read . words) . lines) is :: [[[( Int
|
map (map (flip zip (repeat False) . map read . words) . lines) is :: [Board]
|
||||||
, Bool)]]]
|
|
||||||
let (newBoards, newNums) = bingo (boards, nums)
|
let (newBoards, newNums) = bingo (boards, nums)
|
||||||
print $ countScore newNums $ getWinBoard newBoards
|
print $ countScore newNums $ getWinBoard newBoards
|
||||||
let ([lb], ln) = loseBoard (newBoards, newNums)
|
let ([lb], ln) = loseBoard (newBoards, newNums)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user