countMoves :: String -> [Move] -> Int
countMoves t moves = length ( filter (\(Move mX mY mT) -> mT == t) moves)
countMoves :: String -> [Move] -> Int
countMoves t moves = length ( filter (\(Move mX mY mT) -> mT == t) moves)
countMoves t moves = length ( filter (\(Move mX mY mT) -> mT == t) moves)