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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы 
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.

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы