Scheme列表末尾追加元素问题：递归函数输出带点结构求助

我明白你遇到的问题了——那个奇怪的点符号是Scheme里表示**点对（dotted pair）**的方式，这说明你得到的不是一个合法的列表结构，咱们一步步拆解原因和解决方案：

问题根源 #

在Scheme里，一个合法的列表必须满足：每一个cdr要么是另一个列表，要么是空列表()。而你的递归函数在base case（当lst为空时）直接返回了传入的item（也就是5，一个原子值），这就导致最后一步的cons操作变成了：

(cons 4 5)

这不是一个列表，而是一个点对——因为第二个参数不是列表或空列表，所以Scheme会用点符号来表示这种结构，也就是(4 . 5)，最终整个结果就变成了(1 2 3 4 . 5)。

修正方案 #

只需要修改base case，当lst为空时，返回包含item的列表而不是item本身。这样最后一步的cons会把最后一个元素和一个单元素列表组合，形成合法的列表结构：

(define (my-append lst item)
  (if (null? lst)
      (list item)  ; 改为返回包含item的列表
      (cons (car lst) (my-append (cdr lst) item))))

现在测试调用：

(display (my-append (list 1 2 3 4) 5))

输出就会是你预期的(1 2 3 4 5)了。

额外补充 #

如果你想让这个函数更贴近标准append的功能（支持追加另一个列表），可以保持base case返回item，但调用时传入列表而非单个元素：

(display (my-append (list 1 2 3 4) (list 5)))

这样也能得到正确的列表结果，这也是标准append的工作方式——它的第二个参数必须是一个列表。

内容的提问来源于stack exchange，提问作者Zuhaib Ahmed