farm.pl bug

reproducing-the-bug.txt

$ perl6 farm.pl 
How many players? 2   
Player 1, make what trade? none

[... some turns later ...]

player_1 rolls a pig and a rabbit
stock gives player_1 2 rabbits

Current inventories:
player_1: 6 rabbit
player_2: 3 rabbit
stock: 51 rabbit, 24 sheep, 20 pig, 12 cow, 6 horse, 4 small_dog, 2 big_dog
Player 2, make what trade? none
player_2 rolls a rabbit and a rabbit
stock gives player_2 2 rabbits

Current inventories:
player_1: 6 rabbit
player_2: 5 rabbit
stock: 49 rabbit, 24 sheep, 20 pig, 12 cow, 6 horse, 4 small_dog, 2 big_dog
Player 1, make what trade? 6 rabbit for 1 sheep with stock
player_1 gives stock 6 rabbits
stock gives player_1 1 sheep
player_1 rolls a rabbit and a rabbit
stock gives player_1 1 rabbit

Current inventories:
player_1: 1 sheep, 1 rabbit
player_2: 5 rabbit
stock: 54 rabbit, 23 sheep, 20 pig, 12 cow, 6 horse, 4 small_dog, 2 big_dog
Player 2, make what trade? none
player_2 rolls a horse and a rabbit
stock gives player_2 3 rabbits

Current inventories:
player_1: 1 sheep, 1 rabbit
player_2: 8 rabbit
stock: 51 rabbit, 23 sheep, 20 pig, 12 cow, 6 horse, 4 small_dog, 2 big_dog
Player 1, make what trade? 1 sheep for 6 rabbit with stock
player_1 gives stock 1 sheep
stock gives player_1 51 rabbits <--- LOOK!
player_1 rolls a rabbit and a sheep

Current inventories:
player_1: 52 rabbit <--- LOOK!
player_2: 8 rabbit
stock: 24 sheep, 20 pig, 12 cow, 6 horse, 4 small_dog, 2 big_dog
Player 2, make what trade?