Code snippet

preorder_tree_traversal.pro

% Определяем предикат для префиксного обхода дерева
preorder(Tree, List) :- preorder(Tree, [], List).

% Базовый случай: пустое дерево приводит к накопленному списку
preorder([], Acc, Acc).

% Рекурсивный случай: обрабатываем узел и его поддеревья
preorder([Node|Subtrees], Acc, List) :-
    preorder(Subtrees, Acc, NewAcc), % Сначала обрабатываем поддеревья
    List = [Node|NewAcc]. % Добавляем узел в начало списка

% Вспомогательный предикат для обработки списка поддеревьев
preorder([], Acc, Acc). % Базовый случай для списка поддеревьев
preorder([Tree|Trees], Acc, List) :- 
    preorder(Tree, Acc, NewAcc), % Обрабатываем первое поддерево
    preorder(Trees, NewAcc, List). % Продолжаем с оставшимися поддеревьями