list - 普通口齿不清 : Attach x recursively to list

Question

我正在尝试将 x 添加到列表的每个元素。例如:

(queue 3 '(1 2 3))

会给予

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

下面的代码显然不符合我的要求。有什么提示吗？

(defun queue(x y)
 (cond
  ((null y) nil)
  (t (cons x (queue x (rest y)))))) 

Answer 1

您将 x 添加到将队列应用于 y 的其余部分的结果，而根本没有使用 y 的第一个元素。所以基本上你要丢弃 y 的所有值并用 x 替换它们。

你想做 (cons (list x (first y)) (queue x (rest y)))))) 代替。

您当然可以只使用 map 来执行此操作，但我认为这是递归练习。