let calculateMoves player (board :Board) =
let isPlayerPiece row column =
let piece = board.[row].[column]
piece.IsSome && player = piece.Value.Player
let mutable jumps = List.empty<Coord * Coord>
let mutable hops = List.empty<Coord * Coord>
for row in 0 .. Rows do
for column in 0 .. Columns do
match isPlayerPiece row column with
| true ->
jumps <- List.append (getPieceJumps {Row = row; Column = column} board) jumps