VPF::Замена элементов в дереве - Форум программистов

Belka08

Дата 24.12.2010, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 29.9.2008

Репутация: нет
Всего: нет

Доброго времени суток!

Имеется дерево:

Код


t(-1,
             t(7,
                   t(-5,nill,nill),
                   t(10,nill,nill)),
             t(9,
                   t(-1,nill,nill),
                   t(18,nill,nill))
             )

Необходимо найти его максимальный элемент и заменить им отрицательные
Сам поиск есть:

Код


max(der(F,Left,Right),F):-max(Left,L),max(Right,R),F>L,F>R,!.
    max(der(_,Left,Right),L):-max(Left,L),max(Right,R),L>R,!.
    max(der(_,_,Right),R):-max(Right,R).

Замена:

Код


newT(t(A,Left,Right),t(Max,NewLeft,NewRight),Max):-A<0,!,
        newT(Left,NewLeft,Max),newT(Right,NewRight,Max).
newT(t(A,Left,Right),t(A,NewLeft,NewRight),Max):-
        newT(Left,NewLeft,Max),newT(Right,NewRight,Max).

Каким образом вызвать из кода замены поиск максимума и заменить им элементы? У меня при вызове возникает ошибка

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »