moveExistAtCoords :: Int -> Int -> [Move] -> Bool
moveExistAtCoords x y moves
    | ((filter( \(Move mX mY mT) -> mX == x && mY == y) moves) /= [] ) = True
    | otherwise = False
moveExistAtCoords :: Int -> Int -> [Move] -> Bool
moveExistAtCoords x y moves
    | ((filter( \(Move mX mY mT) -> mX == x && mY == y) moves) /= [] ) = True
    | otherwise = False
moveExistAtCoords x y moves
    | ((filter( \(Move mX mY mT) -> mX == x && mY == y) moves) /= [] ) = True
    | otherwise = False