recherche dans un arbre binaire avec un autre critère que celui du tri

Marsh Posté le 27-04-2008 à 23:58:05

Bonsoir, c'est pour un coup de main [:bcastelli]
Merci de votre aide.

j'ai un arbre binaire équilibré trié selon un critère, et je souhaite faire une recherche selon un autre critère.

J'ai donc un parcourt de l'arbre à faire.

Je dispose des opérateur '=',

Avec Ada, le prototype de mon unité englobante :

Code :

function Get (Code : In T_Code;
                      From : in T_word_Tree) return T_Word;

le type T_Word

Code :

type T_Word is
   record
      The_pattern : Patterns.T_Pattern := Patterns.Null_Pattern;
      The_Code    : Codes.T_Code := Codes.Null_Code;
   end record;

La recherche à faire, doit l'être sur le critère T_Code.

edit : je ne dispose pas des opérateur '<' et '>'

Le type T_Word_Tree peut-être :

Code :

type T_Node;
   type Node_Access is access T_Node;
   type T_Node is
      record
         The_Word : T_Word;
         Left, Rigth : Node_Access;
      end record;
 
   type T_Words_Tree is
      record
         Root : Node_Access;
         Count : Natural := 0;
      end record;

Message édité par Profil supprimé le 28-04-2008 à 00:22:31

Reply

Marsh Posté le 27-04-2008 à 23:58:05

Reply

Marsh Posté le 29-04-2008 à 23:00:39

Bonsoir, je up, j'ai pas trouvé

Reply

Marsh Posté le 29-04-2008 à 23:30:00

Ah si, zut, il semblerait que j'ai trouvé

Avec Ada, une fonction récursive ...

Code :

function R_Get(Code : in Codes.T_Code;
                    Root : in Node_Access) return T_Word is
        The_Word : T_Word := Null_Word;
  begin
     if Root.The_Word.The_Code = Code then
        return Root.The_Word;
     else
        if (Root.Left /= null) then
           The_Word :=  R_Get(Code, Root.Left);
        end if;
        if The_Word.The_Code = Code then
           return The_Word;
        end if;
        if (Root.Rigth /= null) then
              The_Word := R_Get(Code, Root.Rigth);
        end if;
        if The_Word.The_Code = Code then
           return The_Word;
        end if;
     end if;
     return Null_Word;
  end R_Get;
 
 
 
   function Get(Code : in Codes.T_Code;
                From : in T_Words_tree) return T_Word is
 
   begin
      return R_Get(Code, From.Root);
   end Get;

Reply

recherche dans un arbre binaire avec un autre critère que celui du tri

Sujets relatifs:

Leave a Replay