Prolog打印树

% 定义树的结构
tree(a, [b, c, d]).
tree(b, [e, f]).
tree(c, []).
tree(d, [g]).
tree(e, []).
tree(f, []).
tree(g, []).

% 打印树的函数
print_tree(Node) :-
    print_tree(Node, 0).

print_tree(Node, Depth) :-
    % 打印节点值
    print_node(Node, Depth),
    % 获取子节点列表
    tree(Node, Children),
    % 递归打印子节点
    print_children(Children, Depth).

print_children([], _).
print_children([Child|Rest], Depth) :-
    % 增加缩进
    NewDepth is Depth + 1,
    % 递归打印子节点
    print_tree(Child, NewDepth),
    % 打印下一个子节点
    print_children(Rest, Depth).

print_node(Node, Depth) :-
    % 根据深度打印缩进
    print_indent(Depth),
    % 打印节点值
    write(Node), nl.

print_indent(0).
print_indent(Depth) :-
    Depth > 0,
    write('    '),
    NewDepth is Depth - 1,
    print_indent(NewDepth).

a
    b
        e
        f
    c
    d
        g