我编写了我的愚蠢函数,它返回一个没有通用 lisp 中最后一个元素的列表。这个问题有没有更优雅的解决方案?
这是我的代码:
(defun list-without-last (l)
(if (> (length (rest l)) 0)
(append (list (first l)) (list-without-last (rest l)))
nil))
最佳答案
简短而简单,就像 Lisp 一样。
这是神奇的东西:(defun without-last(l)
(reverse (cdr (reverse l)))
)
关于list - 返回普通lisp中没有最后一个元素的列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10636523/