(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