球拍中的一个奇怪的错误"在一系列内部定义之后没有表达"

Question

我有以下代码:

(define (play-loop strat0 strat1 strat2 game-limit)
 (define (play-loop-iter strat0 strat1 strat2 count history0 history1 history2 limit)
  (cond ((= count limit) (print-out-results history0 history1 history2 limit))
      (else (let ((result0 (strat0 history0 history1 history2))
                  (result1 (strat1 history0 history1 history2)
                  (result2 (strat2 history0 history1 history2)))
              (play-loop-iter strat0 strat1 strat2 (+ 1 count)
                              (extend-history result0 history0)
                              (extend-history result1 history1)
                              (extend-history result2 history2)
                              limit)))))
 (play-loop-iter strat0 strat1 strat2 0 '() '() '() game-limit)))

当我在球拍中运行时,它给出了以下错误:

开始(可能是隐含的):在一系列内部定义之后没有表达式:...

我似乎一切都好,但有一个错误,看起来很有趣.

问题是什么？

谢谢...

Answer 1

它告诉你,你的play-loop函数只包含函数的定义,play-loop-iter而且它的正文中没有其他表达式.

看起来你希望呼叫play-loop-iter成为play-loop身体的一部分,但事实并非如此 - 它play-loop-iter是身体的一部分.检查括号.