1

只是一个简单的二叉树，我想找到最大的节点。
示例树：t(t(t(nil,1,nil),2,t(nil,3,nil)),4,t(t(t(nil,8,nil),5,nil),6, t(nil,7,nil)))

int L(t,max) {
if(t=null) return max;
if(max<t.root) max = t.root;
LN(t,max);
RN(t,max);
return max;
}
L(tree,tree.root);

我只是不能把它应用到序言中。在这里我显示每个节点。我得到了，但我不明白如何保存最大值并递归地保持它。

tree(nil).
tree(t(L,Root,R)) :- 
    tree(L),
    tree(R), 
    write(Root).

编辑：它检查所有叶节点，但忽略 t(nil,8,nil)

tree(nil,0).
tree(t(nil,Q,nil),Q) :- !.
tree(t(nil,Q,_),Q).
tree(t(_,Q,nil),Q).
tree(t(L,_,R),Max) :- 
    tree(L, LValue),
    tree(R, RValue), 
    max(LValue,RValue,Max).
4

1 回答 1

2

这是另一个家庭作业吗？

无论如何，我会尽量让你思考，因为你似乎正在学习 Prolog。更不用说我实际上并没有在我的计算机上运行 Prolog，所以我不能确定我建议的解决方案是否真的有效。

5 是唯一一个只有一个子节点的节点（即它忽略的 8）这一事实应该告诉你一些事情。所有其他节点要么是叶节点，要么有两个子节点。

你认为这两条规则到底是做什么的？

tree(t(nil,Q,_),Q).
tree(t(_,Q,nil),Q).
于 2008-11-25T20:56:58.720 回答