Prolog:如何计算具有任意数量的子树的树的深度？

% 定义树的数据结构
% tree(Node, Subtrees)
% Node表示树的节点，Subtrees表示子树列表
% 例如，tree(a, [tree(b, []), tree(c, [tree(d, []), tree(e, [])])])表示一棵树
%     a
%    / \
%   b   c
%      / \
%     d   e
%
% 计算树的深度
depth(tree(_, []), 1). % 叶子节点的深度为1
depth(tree(_, Subtrees), Depth) :-
    depth_list(Subtrees, Depths), % 计算子树的深度列表
    max_list(Depths, MaxDepth), % 找到最大的子树深度
    Depth is MaxDepth + 1. % 当前树的深度为最大子树深度加1

% 计算深度列表
depth_list([], []).
depth_list([Tree|Trees], [Depth|Depths]) :-
    depth(Tree, Depth), % 计算当前子树的深度
    depth_list(Trees, Depths). % 递归计算剩余子树的深度

% 示例查询
?- depth(tree(a, [tree(b, []), tree(c, [tree(d, []), tree(e, [])])]), Depth).
% 输出结果：Depth = 3