我将如何编写一个 Scheme 过程，它接受一个列表并返回通过切换列表中的连续元素创建的列表？

Question

我在编写一个接收列表并返回通过切换列表中的连续元素创建的列表的 Scheme 过程时遇到问题。

例如，如果我打电话给：(newlist ‘((a b) (c d) e f g))，我会得到：‘( (b a) (d c) f e g)

到目前为止，我已经尝试了以下方法，但在尝试编译时出现错误：

(define (newlist givenList)
  (cond ; Condition statement
    ((null? givenList)
        '())
        ((null? (cdr givenList))
            (list (car givenList)))
        (list (cadr givenList) (car givenList)))
    (newlist (cddr givenList)))

cddr：违反合同 预期：（cons/c any/c pair？） 给定：(g)

这种语言与我以前使用过的语言非常不同，所以我承认有点难过。

Answer 1

你的括号是错误的。这是你写的：

(define (newlist givenList)
  (cond ; Condition statement
      ( (null? givenList)
          '()
          )
      ( (null? (cdr givenList))
          (list (car givenList))
          )
      ( list                        ; NB
          (cadr givenList)
          (car givenList)
          ) )
  (newlist                          ; NB
     (cddr givenList)))

根据错误信息判断，您使用的是 Racket。单击其编辑器中的左括号将突出显示表达式到其结束括号。按“Alt-右箭头”将使您的光标点跳到右括号，然后按“Alt-左箭头”，回到开头的那个。这样您就可以看到是什么，并重新格式化并添加空格以使代码更清晰。

特别是，您的cond 的第三个子句以list 开头。它被测试为假或真，因为它不是#f，所以它被认为是真的。所以下面的两个表达式将被计算，而第一个的值将被忽略。

然后，正如我们现在所见，整个 cond 表达式的值被忽略，而另一种形式 (newlist ...) 被无条件地求值。