digital-asset / ex-models Goto Github PK

hasWon game player =
  let
    moves = filter (\m -> m.player == player) game.moves
    hasAllHorizontal i = count (\m -> m.x == i) moves == game.size
    hasAllVertical i = count (\m -> m.y == i) moves == game.size
    hasAllDiagonal i = count (\m -> m.y == i && m.x == i) moves == game.size
    hasAllCounterDiagonal i = count (\m -> m.y == i && m.x == game.size - 1 - i) moves == game.size
    hasWonHorizontal = any hasAllHorizontal [0 .. game.size - 1]
    hasWonVertical = any hasAllVertical [0 .. game.size - 1]
    hasWonDiagonal = any hasAllDiagonal [0 .. game.size - 1]
    hasWonCounterDiagonal = any hasAllCounterDiagonal [0 .. game.size - 1]
  in hasWonHorizontal || hasWonVertical || hasWonDiagonal || hasWonCounterDiagonal```