我正在尝试使用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
.我错过了什么?