prolog - 二分木の高さを調べる

Question

バイナリツリーの高さの合計を取得する方法を知りたいです。

これは、頭の中でエラーループを開始する前に私が到達した距離です。

height( leaf(_), 1 ).
height( branch(Branch1, Branch2), H ):-
    height(Branch1, H1),
    height(Branch2, H2),
    is max(H1, H2).

私は正しい軌道に乗っていると思いますが、この最後の部分に頭を悩ませているようには見えません (値が設定されると、これらの変数は変更できないため)。

score 2 · Accepted Answer

さて、あなたはほとんどそこにいます。あなたがすでに書いたものはかなり正しいので、私は言うことがあまりないので、私は仕事を終えるだけです。

height( leaf(_), 1 ).
height( branch(Branch1, Branch2), H ):-
    height(Branch1, H1),
    height(Branch2, H2),
    H is max(H1, H2) + 1.

1 に答える 1