Определить функцию для вычисления глубины бинарного дерева - Lisp (229221)

Узнай цену своей работы

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

Дано S-выражение, представляющее дерево вида «(РебенокЛевый Родитель РебенокПравый)». Определить функцию для вычисления глубины этого дерева. Например: если дано "(((nil 5 nil) 2 nil) 1 ((nil 7 nil) 3 ((nil 9 nil) 5 (nil 8 nil))))", ответом будет "4".

Решение задачи: «Определить функцию для вычисления глубины бинарного дерева»

textual
Листинг программы
  1. (defun depth-tree (tree)
  2.   (cond ((null tree) 0)
  3.         (t (max (+ 1 (depth-tree (car tree))) (+ 1 (depth-tree (caddr tree)))))))  
  4.  
  5. ==> DEPTH-TREE
  6.  
  7. (depth-tree '(((nil 5 nil) 2 nil) 1 ((nil 7 nil) 3 ((nil 9 nil) 5 (nil 8 nil)))))
  8.  
  9. ==> 4

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы