rateVerticalNeighbors coords listOfCoordinates = rateNeighborsSequence coords listOfCoordinates 0 -1 0 1
            rateHorizontalNeighbors coords listOfCoordinates = rateNeighborsSequence coords listOfCoordinates -1 0 1 0
            rateRightDiagonalNeighbors coords listOfCoordinates = rateNeighborsSequence coords listOfCoordinates -1 -1 1 1
            rateLeftDiagonalNeighbors coords listOfCoordinates = rateNeighborsSequence coords listOfCoordinates -1 1 1 -1
            rateNeighborsSequence (Coordinates x y) listOfCoordinates x_1 y_1 x_2 y_2
                | ((Coordinates (x+x_1) (y+y_1)) `elem` listOfCoordinates) || ((Coordinates (x+x_2) (y+y_2)) `elem` listOfCoordinates) = 1
                | otherwise = 0