(remove-coins-from-pile game-state n p) ; given a state, returns a new
; state with n fewer coins in pile p
Q: (remove-coins-from-pile (make-game-state 9 6) 4 1)=
To remove a number of coins n from pile p:
(define remove-coins-from-pile
(lambda (game-state n p)
(if (= p 1)
(make-game-state
(- (size-of-pile game-state 1) n)
(size-of-pile game-state 2))
(make-game-state
(size-of-pile game-state 1)
(- (size-of-pile game-state 2) n)))))