fxdpntthm / h-reversi Goto Github PK

End the game when no one can make a move, show the winner

How do you identify no moves are possible?

• find empty squares
• check if either of the discs can be placed legally

fromList [((-2,-1),White),((-1,-1),White),((-1,0),White),((0,-2),Black),((0,-1),White),((0,0),White),((0,1),White),((1,-3),Black),((1,-1),White),((2,-2),Black),((2,-1),Black),((2,0),White),((3,-1),Black)]

"waiting for turn: Black"
13
Just (-2,0)

fromList [((-2,-1),White),((-2,0),Black),((-1,-1),Black),((-1,0),Black),((0,-2),Black),((0,-1),White),((0,0),White),((0,1),White),((1,-3),Black),((1,-1),White),((2,-2),Black),((2,-1),Black),((2,0),White),((3,-1),Black)]

(-1,0) disc illegally flipped

How do I generate valid board configurations?
What are the properties of valid board configurations?

1. property after every move, total number of discs is increased only by one
2. increase in White == decrease in black + 1
3. increase in Black == decrease in white + 1

Enlarging or shrinking the context width/hight misaligns the disc placement.

fromList [((-2,-2),Black),((-2,-1),Black),((-2,0),Black),((-1,-1),Black),((-1,0),Black),((0,-1),White),((0,0),Black),((0,1),White),((1,1),White),((2,1),White)]

"waiting for turn: White"
10
Just (-3,-3)

fromList [((-3,-3),White),((-2,-2),White),((-2,-1),Black),((-2,0),Black),((-1,-1),Black),((-1,0),Black),((0,-1),White),((0,0),Black),((0,1),White),((1,1),White),((2,1),White)]

different ideas
make a heuristic search

• using A*
• greedy

initial state:

fromList [((-1,-1),Black),((-1,0),White),((0,-1),White),((0,0),Black),((0,1),White),((1,1),Black)]

"waiting for turn: White"
6
White plays Just (2,1)

fromList [((-1,-1),Black),((-1,0),White),((0,-1),White),((0,0),Black),((0,1),White),((1,0),White),((1,1),White),((2,1),White)]

initial state

fromList [((-3,2),Black),((-2,0),White),((-2,1),Black),((-1,-1),Black),((-1,0),White),((-1,1),White),((0,-1),Black),((0,0),White),((0,1),White),((1,-2),Black),((1,-1),White),((1,1),Black),((2,-3),Black),((2,-2),Black),((2,-1),White),((3,-3),White),((3,-2),White),((3,-1),White)]

black plays (-1,2)

fromList [((-3,2),Black),((-2,0),White),((-2,1),Black),((-2,2),Black),((-1,-1),Black),((-1,0),Black),((-1,1),Black),((-1,2),Black),((0,-1),Black),((0,0),White),((0,1),White),((1,-2),Black),((1,-1),White),((1,1),Black),((2,-3),Black),((2,-2),Black),((2,-1),White),((3,-3),White),((3,-2),White),((3,-1),White)] "waiting for turn: White"
20

(-2,2) Black appears magically

Add all the game specific internals into Reversi module
Clean the API