子列表上的方案最大值

我找不到逻辑错误,所以我重写了它 更多 递归方式:)
在编写函数之前,首先识别递归部分是很重要的。

multi-max 可以递归定义为 multi-max = max(multi-max(car), multi-max(cdr))

(define (multi-max array)
  (cond ((pair? array) (max (multi-max (car array)) (multi-max (cdr array))))
        ((number? array) array)
        (else 0)))

(multi-max '(1 9 83 9 (332 (334) (2 3 4224))))
现在输出 4224 .

编辑: 好吧,我想我发现了错误:

...
((pair? (car array))
 (multi-max (car array)))
(else
 (multi-max (cdr array))))
...

代码忽略了 (cdr array) 在 (pair? ) 部分和 (car array)
在 (else ) 部分。

应该是:

(else (max (multi-max (car array)) (multi-max (cdr array))))

(*)注意 (pair? ) 被移除。