您使用的语言(BSL)仅允许在过程主体中使用单个表达式,如果有多个表达式,则需要将它们打包在begin
.
另请注意,该string-append
行什么也不做,您应该打印它或累积它。这是一个可能的解决方案,其中包含我的建议:
(define (subtract-1 n)
(begin
(display (string-append "Number is: " (number->string n) "\n"))
(cond
[(= n 0) "All done!"]
[else (subtract-1 (- n 1))])))
更好的是,printf
为了简单起见,使用该过程:
(define (subtract-1 n)
(begin
(printf "~a ~s~n" "Number is:" n)
(cond
[(= n 0) "All done!"]
[else (subtract-1 (- n 1))])))
无论哪种方式,示例执行都如下所示:
(subtract-1 3)
=> Number is: 3
=> Number is: 2
=> Number is: 1
=> Number is: 0
=> "All done!"