Вывод бинарного дерева (перевести на SWI Prolog)

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

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

Напишите, пожалуйста, как код, приведенный ниже, будет выглядеть в диалекте SWI prolog. Это обычный вывод бинарного дерева.

Решение задачи: «Вывод бинарного дерева (перевести на SWI Prolog)»

textual
Листинг программы
print_tree(nil):- !.
print_tree(tree(Root, Left, Right)):- write(Root), nl,
                                       print_tree(Left),
                                       print_tree(Right).
 
:- print_tree(tree(4, tree(2, tree(1, nil, nil),
            tree(3, nil, nil)), tree(5, nil, nil))).

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

10   голосов , оценка 4.6 из 5