http://www.perlmonks.org?node_id=124955


in reply to I'm bored, let's play a game

That's really clever! One small point; the game should end when a player is unable to move on their turn. For example, in this situation, black is unable to move, so white wins:
01234567 0 w w # #0 1b # # # 1 2 # # # w2 3w # # # 3 4 # W w #4 5# # # # 5 6 # # # #6 7# # # # 7 01234567