tiny day 4 cleanup

This commit is contained in:
opfez 2021-12-04 13:18:32 +01:00
parent 61b294c127
commit ee1893cec0
2 changed files with 2 additions and 4 deletions

View File

@ -40,8 +40,7 @@ finalSum = aux 0
mark :: Integer -> Board -> Board
mark n = map $ map conditionalMark
where conditionalMark x
| n == 0 && x == 0 = -100
| x == n = -x
| x == n = -1
| otherwise = x
simulate :: Integer -> [Integer] -> [Board] -> Integer

View File

@ -45,8 +45,7 @@ finalSum = aux 0
mark :: Integer -> Board -> Board
mark n = map $ map conditionalMark
where conditionalMark x
| n == 0 && x == 0 = -100
| x == n = -x
| x == n = -1
| otherwise = x
simulate :: Integer -> [Integer] -> [Board] -> Integer