0

整数のbツリーが順序付けられているかどうかを確認するプログラムをPrologで作成したいと思います。順序は小さいものから大きいものへと進みます。これは私がこれまでに書いたものですが、私は確固たる仕事に到達していません。誰かがそれを行う方法を知っていますか？

Domains
element=integer
tree=a(tree,element,tree);void

Predicates
     nondeterm ordre(tree)

Clauses
    order(a(_,Node,a(_,Node2,_))):-Node<Node2.
    order(a(Esq,Node,Dre)) :- 
        order(Esq), 
        write(Node),nl, 
        order(Dre).

Goal
       order(a(a(void,1,void),2,a(a(void,3,void),4,a(void,6,void)))).

どうもありがとう。

4

2 に答える 2

0 
domains
    element = integer
    arbre = a (arbre, element, arbre) ; buit

predicates
    nondeterm ordenat (arbre)
    nondeterm ordenat2 (arbre, element)

clauses
    ordenat2 (a (buit, E, buit), E).
    ordenat2 (a (buit, E, R), MR) :-
        ordenat2 (R, MR),
        E<MR.
    ordenat2 (a (L, E, buit), E) :-
        ordenat2 (L, ML),
        ML<E.
    ordenat2 (a (L, E, R), MR) :-
        ordenat2 (L, ML), ML<E,
        ordenat2 (R, MR), E<MR.

    ordenat (A) :-
        ordenat2 (A, _).

goal
    B=a (a (a (buit, 1, buit), 2, a (buit, 3, buit)), 4, a (a (buit, 5, buit), 6, a (buit, 7, buit))),
    ordenat (B)
    .

結果：はい

于 2012-07-05T10:09:02.187 に答える
-1

以前と同じツリー構造を使用します（アトムbtreeは空のツリーを示します。構造は空でないツリーを示します。次のbtree(Key,Left,Right)ようになります。

  • 空の木は定義により順序付けられます

    is_ordered( btree ).

  • 空でないツリーは、次の場合に注文されます

    • その左側の子は順序付けられており、それらのキーは現在のノードのキーよりも小さくなっています

    • その右の子は順序付けられており、それらのキーは現在のノードのキーよりも大きい

      is_ordered( btree( K , L , R ) ) :-
  is_ordered( L < K ) ,
  is_ordered( R > K )
  .

  • 定義上、空のツリーは、指定されたキー値よりも小さく、指定されたキー値よりも大きくなります。

    is_ordered( btree < K ).
is_ordered( btree > K ).

  • 空でないツリーは、次の場合に指定されたキー値よりも小さくなります

    • そのキーは指定されたキーよりも小さく、

    • それ自体が注文されています

      is_ordered( btree(K1,L,R) < K ) :-
K1 < K ,
is_ordered( btree(K1,L,R) )
.

  • 空でないツリーは、次の場合に指定されたキー値よりも大きくなります

    • そのキーは指定されたキーよりも大きく、

    • それ自体が注文されています

      is_ordered( btree(K1,L,R) > K ) :-
  K1 > K ,
  is_ordered( btree(K1,L,R) )
  .
于 2012-01-04T18:40:45.070 に答える