方案附加程序

Question

我在将一个列表附加到另一个列表时遇到问题。下面是我的代码。当我运行 (append '(1 2) '(3 4)) 时，我得到 '(1 3 2 4)。

我希望输出为 '(1 2 3 4)

(define (append l m)
 (if (null? l) '()
  (cons (car l) (append m (cdr l)))))

谢谢

Answer 1

好吧，通过像这样切换两个列表（递归调用追加时切换 m 和 l 的位置），您将获得第一个列表的第一项，然后是第二个列表的第一项，依此类推。

如果您不这样做如果想要这样，您应该将 l 作为第一个参数，将 m 作为第二个参数。所以你会得到：

(define (append l m)
 (if (null? l) '()
  (cons (car l) (append (cdr l) m))))

当然这也不能按预期工作，因为现在你只得到第一个列表，并且根本没有附加任何内容。您需要做的是，一旦第一个列表完全附加（即一旦 l 为空），您需要返回第二个列表作为尾部，如下所示：

(define (append l m)
 (if (null? l) m
  (cons (car l) (append (cdr l) m))))

Answer 2

我在自学的时候发现了这个。 @sepp2k的答案是一条很好的指令，指导OP纠正他们的代码以实现append的递归定义。下面是使用高阶函数 foldr 的 my-append 的替代定义：

(define (myappend xs ys)
  (foldr cons ys xs))