Функция: определение высоты бинарного дерева

@valik666 · Регистрация: 13.11.2018

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

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

@Catstail · 30.11.2018, 17:42

Lisp

(defun depth-tree (tree)
  (cond ((null tree) 0)
        (t (+ 1 (max (depth-tree (cadr tree)) (depth-tree (caddr tree))))))) 
 
==> DEPTH-TREE
 
(depth-tree '(1 (-7 nil nil) (6 (5 (nil nil) (12 nil nil)))))
==> 4

@valik666 0 / 0 / 0 Регистрация: 13.11.2018 Сообщений: 4
		1
	Функция: определение высоты бинарного дерева 29.11.2018, 20:22. Показов 2358. Ответов 1 Метки нет (Все метки) написать функцию , которая определяет высоту бинарного дерева 0

	30.11.2018, 17:42

Функция: определение высоты бинарного дерева

Решение