list - 在 Lisp 中，如何将给定元素添加到给定列表中的每个列表？

Question

这是我目前所拥有的:

(defun append-all(x L)
  (if (null L)
    L   
    (cons (append (car L) x) (append-all x (cdr L))))
  )
)

输出:

(append-all '3 '((1) (2 1) (2)))

((1 . 3) (2 1 . 3) (2 . 3))

想要:

((1 3) (2 1 3) (2 3))

这是一个辅助函数，所以它是一个链表这一事实似乎给我带来了问题。

谢谢

编辑:固定递归调用

Answer 1

在您的代码中，更改此部分:

(append (car L) x)

对此:

(append (car L) (list x))

它之前不起作用，因为 append 应该接收两个 list 作为参数，而不是一个列表和一个元素。