lisp - 这个 Lisp 函数的传统名称是什么？

Question

我在别处见过这个函数，我记得它有一个标准名称。虽然我不记得了，仔细阅读 Alexandria 的 list.lisp 库并没有向我透露任何 secret 。

(defun familiar-function (list func)
  (loop for e in list
        collect (if (listp e)
                    (familiar-function e func)
                    (funcall func e))))

Answer 1

看起来像tree-map , 也称为 maptree :

(familiar-function '(() (3 2 3) (2) (2) (55 22 33))
                   #'1+)
=> (NIL (4 3 4) (3) (3) (56 23 34))

如评论中所述，您的方法假设树是适当的列表，并且不将该函数应用于非 nil cdr 单元格，这与链接函数相反。