диапазон нечетных элементов в дереве

@Kirsan190419 · Регистрация: 03.06.2012

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

Народ, прошу помощи. Задание было такое: Создайте предикат, подсчитывающий количество всех вершин данного дерева, значения которых принадлежат заданному диапазону. С этим справился

Кликните здесь для просмотра всего текста

Prolog

domains
i,N,Z=integer
tree=empty or tr(i,tree,tree)
predicates
tree_length(tree,N,i,i)
getCalc(i,i,i,i)
clauses
tree_length(empty,0,M,A).
tree_length(tr(V,L,R),N,M,A):-
tree_length(L,N1,M,A),
tree_Length(R,N2,M,A),
getCalc(V,ResV,M,A),
N=N1+N2+ResV,
write(" ",V,"--",N1,"+",N2,"+",ResV,"=",N),nl.
getCalc(V,C,M,A):-
V>=M,V<=A,C=1;C=0.
goal
clearwindow,
write("vvedite diapozon"),nl,
readint(M),readint(A),
tree_length(tr(2,tr(7,empty,empty),tr(3,tr(4,empty,empty),tr(1,empty,empty))),R,M,A),nl,
write("Kolichestvo vershin= ",R).

Теперь надо чтобы этот диапазон был из нечетных элементов. Помогите сделать. Нашел на форуме тему, но что-то туплю и не могу под дерево переделать. Вот ссылка Нечетные числа из заданного промежутка.

Добавлено через 2 часа 16 минут
Вот до чего дошел, но считает не полностью

Кликните здесь для просмотра всего текста

Prolog

domains
i,N,Z=integer
tree=empty or tr(i,tree,tree)
predicates
tree_length(tree,N,i,i)
getCalc(i,i,i,i)
nech(i)
clauses
nech(V):-V mod 2=1.
tree_length(empty,0,A,B).
tree_length(tr(V,L,R),N,A,B):-
tree_length(L,N1,A,B),
tree_Length(R,N2,A,B),
nech(V),
getCalc(V,ResV,A,B),
N=N1+N2+ResV,
write(" ",V,"--",N1,"+",N2,"+",ResV,"=",N),nl OR 
tree_length(L,N1,A,B),tree_length(R,N2,A,B).
getCalc(V,C,A,B):-
V>=A,V<=B,C=1;C=0.
goal
clearwindow,
write("vvedite diapozon"),nl,
readint(A),readint(B),
tree_length(tr(2,tr(7,empty,empty),
tr(3,tr(4,empty,empty),tr(1,empty,empty))),R,A,B),nl,
write("Kolichestvo vershin= ",R).

@Kirsan190419 · 15.05.2014, 23:06 **[ТС]**

Все оказалось намного проще чем я думал. Решение настолько простое и очевидное, что показалось мне неверным :-)
Вот как сделал:

Кликните здесь для просмотра всего текста

Prolog

domains
i,N,Z=integer
tree=empty or tr(i,tree,tree)
predicates
tree_length(tree,N,i,i)
getCalc(i,i,i,i)
clauses
tree_length(empty,0,M,A).
tree_length(tr(V,L,R),N,M,A):-
tree_length(L,N1,M,A),
tree_Length(R,N2,M,A),
getCalc(V,ResV,M,A),
N=N1+N2+ResV,
write(" ",V,"--",N1,"+",N2,"+",ResV,"=",N),nl.
getCalc(V,C,M,A):-
(V mod 2)=1,V>=M,V<=A,C=1;C=0.
goal
clearwindow,
write("vvedite diapozon"),nl,
write("min "),readint(M),write("max "),readint(A),
tree_length(tr(2,tr(7,empty,empty),tr(3,tr(4,empty,empty),tr(1,empty,empty))),R,M,A),nl,
write("Kolichestvo vershin= ",R).

Опции темы