這個函數不應該返回列表中的所有元素嗎？

Question

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

(r (list 1 2 3)) 

它沒有。它返回nil

Answer 1

您需要更改或某處。例如PUSH具有所需的副作用。 CONS沒有。

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

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

Answer 2

你想要做這樣的事嗎？

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

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

如果是這樣，請注意以下事項：

• dolist分配x從list：(dolist (x list) ...
• o必須設置：(setf o (...
• o必須是 「返回」

Answer 3

您的dolist塊返回變量o的最終值。變量o最初分配爲nil，然後不會更改。

您可能想在循環內使用push而不是cons。

Answer 4

列表不過是一個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))))