(define make-game-state
(lambda (n m) (cons n m)))
Even simpler:
(define make-game-state cons)
The selector operation is also straightforward:
(define size-of-pile
(lambda (game-state pile-number)
(if (= pile-number 1)
(car game-state)
(cdr game-state))))
As with the other representations,
remove-coins-from-pile does not need to be
changed because it uses just
make-game-state and size-of-pile.