方案，你如何附加一个带有单个项目的列表？答案

【问题标题】：Scheme, how do you append a list with a single item?方案，你如何附加一个带有单个项目的列表？
【发布时间】：2014-04-09 05:02:49
【问题描述】：

我正在尝试创建一个函数来附加一个包含单个项目的列表。它正在做的是返回一个点对。

(define (append lst x)
  (cond
    ((null? lst) x)
    (else (cons (car lst) (append (cdr lst) x)))))

我得到的输出是

> (append '(1 2 3 4 5 6 7) 8)
(1 2 3 4 5 6 7 . 8)

我正在努力

(1 2 3 4 5 6 7 8)

谢谢。

【问题讨论】：

【解决方案1】：

试试这个：

(define (append lst x)
  (cond
    ((null? lst) (cons x '())) ; here's the change
    (else (cons (car lst) (append (cdr lst) x)))))

请注意，所有正确的列表都必须以空列表结尾，否则会发生您刚刚经历的情况。换一种说法：

(cons 1 (cons 2 3))
=> '(1 2 . 3) ; an improper list

(cons 1 (cons 2 (cons 3 '())))
=> '(1 2 3)   ; a proper list

【讨论】：

【解决方案2】：

如果您被允许使用append，那么没有理由不这样做。它的执行与您尝试的几乎相同，因为 append 是 O(n) 其中 n 是第一个列表中的元素数。这只是更少的代码。

;; append element to last
(define (append-elt lst x)
  (append lst (list x)))

【讨论】：