Проверить, равно ли число Sum сумме целых чисел, являющихся вершинами дерева TreeOfInteger

@Actionious1 · Регистрация: 15.04.2017

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

3. Определите отношение sum_tree(+TreeOfInteger, -Sum), выполненное, если число Sum равно сумме целых чисел, являющихся вершинами дерева TreeOfInteger.

@Catstail · 05.04.2018, 14:35

Prolog

domains 
ttree=tree(integer,ttree,ttree); nil 
       
predicates
sum(ttree,integer)
 
clauses
sum(nil,0) :- !.
sum(tree(A,TL,TR),R) :- sum(Tl,Sl), sum(TR,Sr), R=Sl+Sr+A.
 
goal
sum(tree(2,tree(3,nil,nil),tree(5,tree(5,nil,nil),tree(5,nil,nil))),Z),write(Z),nl.

@Actionious1 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 10
		1
	Проверить, равно ли число Sum сумме целых чисел, являющихся вершинами дерева TreeOfInteger 05.04.2018, 10:59. Показов 1445. Ответов 1 Метки нет (Все метки) 3. Определите отношение sum_tree(+TreeOfInteger, -Sum), выполненное, если число Sum равно сумме целых чисел, являющихся вершинами дерева TreeOfInteger. 0

	05.04.2018, 14:35

Опции темы