Hs2048.Game

Functions for playing the game.

Documentation

addRandomTile :: RandomGen r => Board -> r -> (Board, r)

Adds a random tile to the board.

>>> addRandomTile [[Nothing], [Nothing]] (R.mkStdGen 0)
([[Nothing],[Just 2]],1346387765 2103410263)

addRandomTiles :: RandomGen r => Int -> Board -> r -> (Board, r)

Adds some random tiles to the board.

>>> addRandomTiles 2 [[Nothing], [Nothing]] (R.mkStdGen 0)
([[Just 2],[Just 2]],2127568003 1780294415)

hasWon :: Board -> Bool

Determines if the game has been won. See maxTile.

>>> hasWon [[Just 2048]]
True

isOver :: Board -> Bool

Determines if the game is over. The game is over if there are no available moves and no empty points.

>>> isOver [[Just 2]]
True

new :: RandomGen r => r -> (Board, r)

Creates a new game by making an empty board and adding some random tiles to it. See width, height, and tiles.

>>> new (R.mkStdGen 0)
([[Just 2,Nothing,Nothing,Nothing],[Nothing,Nothing,Nothing,Nothing],[Nothing,Nothing,Nothing,Nothing],[Nothing,Just 2,Nothing,Nothing]],2127568003 1780294415)

randomEmptyIndex :: RandomGen r => Vector -> r -> (Maybe Int, r)

Selects an empty index at random from a vector.

>>> randomEmptyIndex [Nothing, Nothing] (R.mkStdGen 0)
(Just 1,40014 40692)

randomEmptyPoint :: RandomGen r => Board -> r -> (Maybe Point, r)

Selects an empty point at random from a board.

>>> randomEmptyPoint [[Nothing],[Nothing]] (R.mkStdGen 0)
(Just (1,0),40014 40692)

randomTile :: RandomGen r => r -> (Tile, r)

Creates a random tile.

>>> randomTile (R.mkStdGen 0)
(Just 2,1601120196 1655838864)