当我尝试执行以下递归函数时,我在 clisp 中收到“-程序堆栈溢出”提示,我相信该函数返回列表中最常见的元素:
(defun greater-member (lst)
(cond ((null (cdr lst))
(cons (car lst) (count-if #'(lambda (x) (eql x (car lst))) lst)))
((>= (count-if #'(lambda (x) (eql x (car lst))) lst)
(count-if #'(lambda (x) (eql x (car (remove (car lst) lst)))) lst))
(greater-member (remove (car (remove (car lst) lst)) lst)))
(t (greater-member (remove (car lst) lst)))))
例如,更大的数字应返回如下:
>(greater-number '(a a a b b b b c))
(b . 4)
请问,是什么原因导致溢出?通过在 clisp 中重复执行更大的数字,我已经摆脱了所有小的语法错误——该函数似乎在逻辑上成立。