(load "nim-coin")
;Loading "nim-coin.scm" -- done
(load "solutions")
;Loading "solutions.scm" -- done
(play-nim '(3 2 3))
The current state is: (3 2 3)
Evaluated 5659 children.
The computer makes the move: (1 0 0)
The current state is: (2 2 3)
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
A valid move is a list the same length as the state with exactly one element
which is 1 or 2 and the rest are 0.
(0 2 0)
The current state is: (2 0 3)
Evaluated 77 children.
The computer makes the move: (2 0 0)
The current state is: (0 0 3)
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
A valid move is a list the same length as the state with exactly one element
which is 1 or 2 and the rest are 0.
(0 0 1)
The current state is: (0 0 2)
Evaluated 3 children.
The computer makes the move: (0 0 2)
The current state is: (0 0 0)
Ha ha, I win!
;No value
(play-nim '(3 2 3) #t)
The current state is: (3 2 3)
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
A valid move is a list the same length as the state with exactly one element
which is 1 or 2 and the rest are 0.
(0 2 0)
The current state is: (3 0 3)
Evaluated 206 children.
The computer makes the move: (1 0 0)
The current state is: (2 0 3)
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
A valid move is a list the same length as the state with exactly one element
which is 1 or 2 and the rest are 0.
(0 0 1)
The current state is: (2 0 2)
Evaluated 32 children.
The computer makes the move: (1 0 0)
The current state is: (1 0 2)
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
A valid move is a list the same length as the state with exactly one element
which is 1 or 2 and the rest are 0.
(0 0 1)
The current state is: (1 0 1)
Evaluated 4 children.
The computer makes the move: (1 0 0)
The current state is: (0 0 1)
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
A valid move is a list the same length as the state with exactly one element
which is 1 or 2 and the rest are 0.
(0 0 1)
The current state is: (0 0 0)
OK, you win...
;No value
(play-coin '(3 4 6))
The current state is: (3 4 6)
* * *
1 2 3 4 5 6
Evaluated 191 children.
The computer makes the move: (3 2)
The current state is: (2 4 6)
* * *
1 2 3 4 5 6
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
Specify your move with a list of two numbers, the first being the current
position of the coin, the second being its new position.
(6 5)
The current state is: (2 4 5)
* * *
1 2 3 4 5
Evaluated 26 children.
The computer makes the move: (2 1)
The current state is: (1 4 5)
* * *
1 2 3 4 5
Enter your move, then press return (or C-x C-e in Emacs/Edwin).
Specify your move with a list of two numbers, the first being the current
position of the coin, the second being its new position.
(4 2)
The current state is: (1 2 5)
* * *
1 2 3 4 5
Evaluated 3 children.
The computer makes the move: (5 3)
The current state is: (1 2 3)
* * *
1 2 3
Ha ha, I win!
;No value