Количество вершин в бинарном дереве

@Skier97 · Регистрация: 11.11.2016

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

Задача: Вычислить количество вершин в бинарном дереве. Пытался сделать, но до конца с синтаксисом пролог при работе с деревьями не разобрался,выдавала ошибки. Заранее благодарен!

@Catstail · 15.11.2016, 10:05

Prolog

domains
int=integer
tree = bt(int, tree, tree); nil
 
predicates
counter(tree,int)
 
clauses
counter(nil,0).
counter(bt(_,L,R),N) :- counter(L,NL), counter(R,NR), N=NL+NR+1.
 
goal
counter(bt(5,bt(1,nil,nil),bt(10,bt(7,nil,nil),nil)),N), write(N), nl.

@Skier97 · 15.11.2016, 17:55 **[ТС]**

Спасибо большое! У меня вопрос. А как осуществлять ввод, если мне нужно вводить элементы дерева с клавиатуры?

Добавлено через 6 часов 10 минут
Я пытался сделать вводи дерева с клавиатуры, но у меня что то не выходит, как то слишком плохой алгоритм заполнения вышел. Как там по проще?

@Skier97 1 / 1 / 0 Регистрация: 11.11.2016 Сообщений: 104
		1
	Количество вершин в бинарном дереве 14.11.2016, 21:24. Показов 3446. Ответов 2 Метки двоичные деревья (Все метки) Задача: Вычислить количество вершин в бинарном дереве. Пытался сделать, но до конца с синтаксисом пролог при работе с деревьями не разобрался,выдавала ошибки. Заранее благодарен! 0

@Skier97 1 / 1 / 0 Регистрация: 11.11.2016 Сообщений: 104
	15.11.2016, 17:55 [ТС]	3
	Спасибо большое! У меня вопрос. А как осуществлять ввод, если мне нужно вводить элементы дерева с клавиатуры? Добавлено через 6 часов 10 минут Я пытался сделать вводи дерева с клавиатуры, но у меня что то не выходит, как то слишком плохой алгоритм заполнения вышел. Как там по проще? 0