在拍一個奇怪的錯誤

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的身體的一部分。檢查括號。

Answer 2

你很可能(result1 (strat1 history0 history1 history2)