Scheme向列表末尾添加元素的代码问题排查求助

你的代码核心问题出在空列表的处理分支：当输入列表为空时，你直接返回了num，但Scheme中合法列表的末尾必须是'()（空列表），单个元素无法作为列表的结尾。这会导致两种错误情况：

• 调用(addatend '() 5)时，返回5而非预期的(5)
• 调用(addatend '(1 2) 3)时，得到(1 2 . 3)（这是一个点对，不是标准列表）

修正后的代码只需把空列表分支的返回值改成包含num的单元素列表即可：

(define addatend(lst num)
  (cond
    [(null? lst) (cons num '())]
    [else (cons (car lst) (addatend(cdr lst) num))]
  ))

也可以用(list num)替代(cons num '())，效果完全一致。

测试验证：

• (addatend '() 5) 返回 (5)
• (addatend '(1 2) 3) 返回 (1 2 3)

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