Lisp 反向“全部”函数

Question

我想在 lisp 中编写一个函数，使用 map 函数反转列表中的所有元素，但我不知道如何开始这个。我想我必须以某种方式使用内置的 reverse 函数。 例如，如果我有列表 (1 2 3 (4 5 6 (7 8 9))) 我会得到 (((9 8 7) 6 5 4) 3 2 1) 或者如果我有列表 (1 2 3 (4 5) (6 7)) 我会得到 ((7 6) (5 4) 3 2 1) .. 任何帮助表示赞赏！

Answer 1

只是一个快速的答案，不确定效率/优雅：

(defun reverse-deeply (list)
   (mapcar #'(lambda (li) 
               (cond
                ((consp li) (reverse-deeply li))
                (t li)))
           (reverse list)))

Answer 2

(defun reverse-list (list)
  (let ((result nil))
    (dolist (e list result)
      (push e result))))

Answer 3

这是一个适用于 Common-Lisp 的版本。

(defun reverse-list (list)
    (if (atom list)
        list ;; Not actually a list, return the atom
      (reverse (mapcar #'reverse-list list)))

;; Testing it out
(reverse-list '((1 2 3) (4 5 (3 6))))

输出：

(((6 3) 5 4) (3 2 1))

Mapcar 是一个函数，它将另一个函数作为它的第一个参数，并将一个列表作为它的第二个参数。然后它在列表的每个元素上调用该函数。它返回所有答案的列表。因此，在我使用“mapcar”反转所有子列表之后，我再次调用“reverse”来反转更大的列表。

它在每个子列表上调用的函数是'reverse-list'。这将检查列表是否是原子。如果是，那么它会返回自己。如果是列表，则对列表中的每个元素再次调用 mapcar，然后反转结果。