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 :: Integer -> Board -> Board
|
||||||
mark n = map $ map conditionalMark
|
mark n = map $ map conditionalMark
|
||||||
where conditionalMark x
|
where conditionalMark x
|
||||||
| n == 0 && x == 0 = -100
|
| x == n = -1
|
||||||
| x == n = -x
|
|
||||||
| otherwise = x
|
| otherwise = x
|
||||||
|
|
||||||
simulate :: Integer -> [Integer] -> [Board] -> Integer
|
simulate :: Integer -> [Integer] -> [Board] -> Integer
|
||||||
|
|
|
@ -45,8 +45,7 @@ finalSum = aux 0
|
||||||
mark :: Integer -> Board -> Board
|
mark :: Integer -> Board -> Board
|
||||||
mark n = map $ map conditionalMark
|
mark n = map $ map conditionalMark
|
||||||
where conditionalMark x
|
where conditionalMark x
|
||||||
| n == 0 && x == 0 = -100
|
| x == n = -1
|
||||||
| x == n = -x
|
|
||||||
| otherwise = x
|
| otherwise = x
|
||||||
|
|
||||||
simulate :: Integer -> [Integer] -> [Board] -> Integer
|
simulate :: Integer -> [Integer] -> [Board] -> Integer
|
||||||
|
|
Loading…
Reference in New Issue