Разработать функцию, которая подсчитывает высоту заданного бинарного дерева

@Pierrot · Регистрация: 25.03.2015

Author24 — интернет-сервис помощи студентам

Разработать функцию, которая подсчитывает высоту заданного бинарного дерева.
2 примера с разным числом уровней.
Сделать в графическом и кодовом варианте
***
Не совсем понимаю, как это сделать
Еще и со схемой, поясняющей работу функции

@Catstail · 17.11.2017, 21:30

Если дерево имеет такую структуру (левый значение правый), то вот:

Lisp

(defun tree-depth (tree)
  (cond ((null tree) 0)
        (t (+ 1 (max (tree-depth (car tree)) (tree-depth (caddr tree))))))) 
 
==> TREE-DEPTH
 
(tree-depth '((nil 10 nil) 111 ((nil 122 (nil 123 nil)) 222 (nil 333 nil))))
 
==> 4

@Pierrot 0 / 0 / 0 Регистрация: 25.03.2015 Сообщений: 17
		1
	Разработать функцию, которая подсчитывает высоту заданного бинарного дерева 17.11.2017, 21:21. Показов 934. Ответов 1 Метки нет (Все метки) Разработать функцию, которая подсчитывает высоту заданного бинарного дерева. 2 примера с разным числом уровней. Сделать в графическом и кодовом варианте *** Не совсем понимаю, как это сделать Еще и со схемой, поясняющей работу функции 0

	17.11.2017, 21:30

Опции темы