小编Kir*_*euk的帖子

Common Lisp中最大的子列表

我正在尝试使用Common Lisp从列表中获取最大的子列表.

(defun maxlist (list)
(setq maxlen (loop for x in list maximize (list-length x)))
(loop for x in list (when (equalp maxlen (list-length x)) (return-from maxlist x)))
)
Run Code Online (Sandbox Code Playgroud)

我们的想法是遍历列表两次:第一个循环获取最大子列表的大小,第二个循环获取所需的列表.但由于某种原因,我不断收到错误return-from.我错过了什么?

lisp common-lisp

1
推荐指数
1
解决办法
885
查看次数

标签 统计

common-lisp ×1

lisp ×1