Посчитать число узлов и листьев в дереве

@Heeon · Регистрация: 02.07.2014

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

Помогите подсчитать число узлов и листьев в дереве. Заранее благодарен.

@Catstail · 03.07.2014, 11:49

Prolog

domains
treetype = tree(integer, treetype, treetype); empty
 
predicates
num_l(treetype,integer)
num_n(treetype,integer)
 
clauses
num_l(empty,0).
num_l(tree(_,empty,empty),1).
num_l(tree(_,L,R),N) :- num_l(L,N1), num_l(R,N2), N=N1+N2.
 
num_n(empty,0).
num_n(tree(_,empty,empty),0).
num_n(tree(_,L,R),N) :- num_n(L,N1), num_n(R,N2), N=N1+N2+1.
 
goal
num_n(tree(-6,tree(8,tree(7,empty,empty),tree(18,empty,empty)),tree(-1,empty,empty)),N),write(N),nl,
num_l(tree(-6,tree(8,tree(7,empty,empty),tree(18,empty,empty)),tree(-1,empty,empty)),M),write(M),nl.

@Heeon 0 / 0 / 0 Регистрация: 02.07.2014 Сообщений: 4
		1
	Посчитать число узлов и листьев в дереве 02.07.2014, 20:53. Показов 2529. Ответов 1 Метки нет (Все метки) Помогите подсчитать число узлов и листьев в дереве. Заранее благодарен. 0

	03.07.2014, 11:49

Опции темы