Game.Grid

Documentation

type Cord = (Int, Int)

Coordinate system goes from -4 to 3

type Board = Map Cord Disc

data Direction

Orientation of the line whether it is North, south east, west, south-east, etc The order is important as it matches with the adjacent square list

Constructors

NW

N

NE

E

SE

S

SW

W

Instances

Enum Direction

Methods

succ :: Direction -> Direction

pred :: Direction -> Direction

toEnum :: Int -> Direction

fromEnum :: Direction -> Int

enumFrom :: Direction -> [Direction]

enumFromThen :: Direction -> Direction -> [Direction]

enumFromTo :: Direction -> Direction -> [Direction]

enumFromThenTo :: Direction -> Direction -> Direction -> [Direction]

Eq Direction

Methods

(==) :: Direction -> Direction -> Bool

(/=) :: Direction -> Direction -> Bool

Show Direction

Methods

showsPrec :: Int -> Direction -> ShowS

show :: Direction -> String

showList :: [Direction] -> ShowS

grid :: Double -> Double -> Canvas ()

gridCord :: (Enum a, Num a) => a -> [(a, a)]

computeSquare :: (Double, Double) -> Double -> (Double, Double) -> Canvas ()

sqr :: (Double, Double, Double) -> Canvas ()

pointToSq :: (Double, Double) -> Double -> Double -> Maybe Cord

Returns the square co-ordiantes of the click

validate :: Maybe Cord -> Maybe Cord

validate if the coordinate is inside the board

adjacent :: Cord -> [Cord]

return the adjacent co-ordinates starting from NE clockwise

direction :: Cord -> Cord -> Direction

move :: Direction -> Cord -> Maybe Cord

Gives the next co-ordinate in the given direction

isValidMove :: Cord -> Map Cord Disc -> Disc -> Bool

It is a valid move if 1) The current pos is empty 2) There is an adjacent square with opposite colored disc 3) placing the disc creates a sandwich

isEmptySquare :: Cord -> Map Cord Disc -> Bool

Condition 1) in isValidMove

areAdjacentSquareOpposite :: Cord -> Map Cord Disc -> Disc -> Bool

Condition 2) in isValidMove

adjacentOppositeSquares :: Cord -> Map Cord Disc -> Disc -> [Maybe Disc]

All the squares that are adjacent to the current square and have opposite colored disc

sandwiches :: Cord -> Map Cord Disc -> Disc -> Bool

condition 3) in isValidMove Select all adjacent squares that have opposite disc For each of those discs get first disk of same color in appropriate direction if any of such discs exist return True else return False

allFirstSameDiscs :: Cord -> Map Cord Disc -> Disc -> [Maybe (Cord, Disc)]

getFirstSameDisc :: Cord -> Direction -> Map Cord Disc -> Disc -> Maybe (Cord, Disc)

returns the co-ordinate of the first disc of the same color that appears after 1 or more opposite colored discs

updateBoard :: Cord -> Disc -> Board -> Board

between :: Cord -> (Direction, Maybe (Cord, Disc)) -> [Maybe Cord]

returns the sequence of squares from fist position to second position including the start and end

line :: Cord -> Direction -> [Maybe Cord]

returns a sequence of squares from cord in direction

allDirections :: [Direction]

allValidMoves :: Board -> Disc -> [Cord]

get all valid moves

emptyCords :: Board -> [Cord]