> 1 <

Автор Сообщение

Дуська

Members


Статус

21 сообщений

Где: Ukraine
Род занятий:
Возраст:

#6947   2013-03-22 16:38 GMT+3 часа(ов)      
Для произвольного числового списка найти наибольшую глубину вложения.
Пример: (23 (14 -200 (19)) (53 (44 4)) => 3

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 67

#6952   2013-03-22 18:49 GMT+3 часа(ов)      
 
(defun max-dep (lst &optional (m 1))
(cond ((null lst) m)
((atom (car lst)) (max-dep (cdr lst) m))
(t (max (max-dep (car lst) (1+ m)) (max-dep (cdr lst) m)))))
==> max-dep
(max-dep '(23 (14 -200 (19)) (53 (44 49))))
==> 3
 

отредактировал(а) Файфель Б.Л.: 2013-03-23 00:12 GMT+3 часа(ов)
> 1 <


Онлайн :

0 пользователь(ей), 49 гость(ей) :