;; Player for simple guessing game
;; Provides: playgame
;; (playgame n) uses "game.rkt" to start and play an entire
;; game of size n, and produces m,
;; the total number of guesses actually
;; used by playgame to complete the game
#lang racket
(require "game.rkt")
(provide playgame)
(define m 1)
(define (playgame n)
(startgame n)
(playgame-helper n))
(define (playgame-helper n)
(cond
[(equal? (guess n) 'right) m]
[else (set! m (add1 m))
(playgame-helper (sub1 n))]))

运行没有错。。但是结果不对