updates

Signed-off-by: Jack Bond-Preston <jackbondpreston@outlook.com>

4/4.hs

@@ -47,8 +47,6 @@ processTurns :: [[[Int]]] -> [Int] -> [[Bool]]
 processTurns boards draws = map (checkBoards boards) turns
     where turns = [ take n draws | n <- [1 .. length draws ] ]
 
-
--- ret: (turn no, board win states)
 getWinner :: [[[Int]]] -> [Int] -> (Int, Int)
 getWinner boards draws = (turnNo, winnerIndex)
     where results     = processTurns boards draws

5/5.hs

@@ -13,8 +13,6 @@ import qualified Data.Map as Map
 type Coord     = (Int, Int)
 type LineEnds  = (Coord, Coord)
 
-type Grid       = Map Coord Integer
-
 int :: Parser Int
 int = read <$> many1 digit