Максимальный элемент списка, содержащего подсписки - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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