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