Scheme返回错误类型申请列表输入

Question

我正在尝试编写一个在列表中添加数字的程序。但是，当我将输入作为列表提供时，Scheme 不会给我输出。

我的代码如下：

(define (sumlist lst)
    (cond ( (pair? lst) (+ (car lst) (sumlist(cdr lst))) )))

为什么会这样？我正在正确地提供输入，即我正在引用列表。

我给出的输入如下： (sumlist '(1 2 3))

编辑： 我稍微改变了问题。 pair? 'lst 中没有引用该列表，这就是我收到错误的原因。 现在，我没有收到错误。但是，我也没有得到任何输出。

编辑2： 我在pair? lst 中取消引用列表。但是，现在它给了我以下错误： arg2 中的类型错误 # 我已经相应地更新了代码。

Answer 1

1. 您的函数应用程序语法错误。函数应用在Scheme中是always前缀，即car(lst)应该是(car lst)等
2. 另外，(pair? 'lst) 是错误的，因为您不应该引用该论点。这将测试符号 lst 是否是一对，这显然总是错误的。
3. 当您不想要递归时（当您收到空列表时）需要一个基本案例，它应该返回0。

把所有这些放在一起，你应该有这个：

(define (sumlist lst)
  (if (pair? lst)
      (+ (car lst) (sumlist (cdr lst)))
      0))

（我还将cond 更改为if，因为在这种情况下不需要cond。）