这个函数不应该返回包含所有元素的列表吗？答案

【问题标题】：Shouldn't this function return the list back with all elements in it?这个函数不应该返回包含所有元素的列表吗？
【发布时间】：2011-03-01 07:39:41
【问题描述】：

(defun r (list)
  (let ((o ()))
    (dolist (x list o)
      (cons o x))))

(r (list 1 2 3))

它没有。它返回nil

【问题讨论】：

【解决方案1】：

您需要在某处更改o。例如，PUSH 具有所需的副作用。缺点没有。

(defun r (list)
  (let ((o ()))
    (dolist (x list o)
      (push x o))))

> (r (list 1 2 3))
(3 2 1)

【讨论】：

【解决方案2】：

您的dolist 块返回变量o 的最终值。您的变量o 最初被分配nil，然后永远不会改变。

您可能希望在循环内使用push 而不是cons。

【讨论】：

【解决方案3】：

列表只不过是一个 cons 单元的链接列表，以 nil 值结尾。例如 (1 2 3) 等价于 (cons 1 (cons 2 (cons 3 nil)))

您的代码设计是错误的，因为您尝试使用 nil 构建的内容，即空列表，然后您尝试将其用于其他元素。您正在尝试做的更正版本将是

(defun r (list)
 (let ((o ()))
  (dolist (el list o)
   (setf o (cons el o))))

【讨论】：

【解决方案4】：

您是否正在尝试做这样的事情？

(defun r(list)  
 (let ((o ()))
  (dolist (x list)
   (setf o (cons o x)))
  o))

 (r (list 1 2 3))
 (((NIL . 1) . 2) . 3)

如果是这样，请注意以下几点：

【讨论】：