conditional-statements - 应用程序 : not a procedure racket

Question

我是 Racket 的新手。我正在尝试根据用户的输入创建一个列表，当输入值 0 时，将打印前三个元素。

代码如下:

#lang racket
(define lst '())
(define (add)
   (define n(read))
   (if (= n 0)
      ;then
      (
        list (car lst) (cadr lst) (caddr lst) 
       )
      ;else
      (
        (set! lst (append lst (list n)))
        (add)
       )
     )
 )
(add)

我用值 1 2 3 4 5 0 测试了程序

但我一直收到这个错误:

application: not a procedure;
 expected a procedure that can be applied to arguments
  given: #<void>
  arguments...:
   '(1 2 3)

谁能帮我找出问题所在。

Answer 1

如果在“then”或“else”部分有多个表达式，则必须将它们包含在 begin 中，因为一对 () Scheme 用于函数应用 - 这解释了您遇到的错误。试试这个:

(define (add)
   (define n (read))
   (if (= n 0)
      ; then
      (list (car lst) (cadr lst) (caddr lst))
      ; else
      (begin
        (set! lst (append lst (list n)))
        (add))))