Вычисление глубины бинарного дерева на Arity Prolog

@zzubrik · Регистрация: 25.10.2012

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

Пожалуйста помогите дописать буквально пару строчек в коде!!!
вот код:

Prolog

max(R1,R2,Max):- R1>=R2, Max=R1.
max(R1,R2,Max):- R1<R2,Max=R2.
 depth(Tree,R):-
Tree=..[_,Left,Right],
 depth(Left,R1),
 depth(Right,R2),
вот тут нужно что-то дописать
depth(Tree,0):- atomic(Tree).

Заранее благодарен.

@Грымзик · 25.10.2012, 21:44

max(R1,R2,R)

@zzubrik · 25.10.2012, 22:09 **[ТС]**

большое спасибо)

Добавлено через 3 минуты
почему-то не работает((я ввел такую штуку
?- depth(s(f(b(m,k),a),f(a,g)),R).
и пролог выдает R=0, вместо 4

@Грымзик · 26.10.2012, 12:29

Prolog

depth(Tree,R):-
 Tree=..[_,Left,Right],
 depth(Left,R1),
 depth(Right,R2),
 max(R1,R2,Max),R is Max+1.
depth(Tree,1):- atomic(Tree).

@zzubrik · 26.10.2012, 17:24 **[ТС]**

спасибо)всё работает)))

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	25.10.2012, 21:44	2
	max(R1,R2,R) 1

@zzubrik 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 46
	25.10.2012, 22:09 [ТС]	3
	большое спасибо) Добавлено через 3 минуты почему-то не работает((я ввел такую штуку ?- depth(s(f(b(m,k),a),f(a,g)),R). и пролог выдает R=0, вместо 4 0

@zzubrik 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 46
	26.10.2012, 17:24 [ТС]	5
	спасибо)всё работает))) 0