-- Tikriname ar zaidejas laimejo siuo ejimu

boardFull :: [Move] -> Bool
boardFull moves =
  let
    board = movesToString moves
  in
    ((filter( \(t) -> t == '0') board) == [] )
boardFull :: [Move] -> Bool
boardFull moves =
  let
    board = movesToString moves
  in
    ((filter( \(t) -> t == '0') board) == [] )
boardFull moves =
  let
    board = movesToString moves
  in
    ((filter( \(t) -> t == '0') board) == [] )