tiny day 4 cleanup
This commit is contained in:
parent
61b294c127
commit
ee1893cec0
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue