Поиск количества совпадающих элементов в бинарном дереве - Prolog
Формулировка задачи:
Здравствуйте. Нужно найти количество совпадающих элементов в бинарном дереве. Я написал следующие правила
но получается не то что хотел.
Например:
а расчитывал на
По отдельности element и counter работают, соответственно 1-й выводит все элементы дерева, а 2-й кол-во вхождений элемента в дерево. Помогите разобраться в чем же дело
Решение задачи: «Поиск количества совпадающих элементов в бинарном дереве»
textual
Листинг программы
func(Tree) :-
element(Tree, Elements), % <--- Здесь возникает развилка
counter(Tree, Elements, Num),
write(Elements), write('-'), write(Num), nl,
fail; % <--- Здесь происходит принудительный откат к развилке
write('---'). % <--- А сюда попадём, когда варианты перебора в развилке закончатся
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д