Максимальный элемент списка, содержащего подсписки - Lisp

Формулировка задачи:

Имею код, которые находит максимальный элемент списка из атомов

( defun findMax(List)
(cond 
((null List) nil)
((null (cdr List)) (car List))
((> (car List) (cadr List)) (findMax(cons (car List) (cddr List))))
(t (findMax (cdr List) ))
)
)

как переделать этот код, чтобы он работал и для списка, содержащего подсписки?

Решение задачи: «Максимальный элемент списка, содержащего подсписки»

textual
                            Листинг программы 
                        
                            (t (maximus (cdr w) ac))))

Оцени полезность:

8 голосов , оценка 4.375 из 5

Похожие ответы