TROUVER TOUS LES ANAGRAMMES D'UN MOT (AVEC DICO)

Commentaire de Abened le 30/08/2005 20:27:20

Effectivement Debiars, c'est une solution simple a mettre en oeuvre pour eviter *d'afficher* les doublons, mais cela n'empeche pas que dans l'arbre, il y a 2 (ou plutot 2^(nombre de lettre en double) ) braches de l'arbre qui sont developpées et pourtant identiques, et c'est a ce niveau la que j'aurais aimé optimiser mon code (même si je n'ai jamais dépassé 30ms pour trouver un anagramme, on a pratiquement l'impression qu'il ne fait rien :D). Pour le moment je vais integrer ca au code quand meme.
Merci du commentaire :) Abened

Commentaire de yvemoreau le 07/09/2005 23:19:39

Rebonjour ,

j'ai bidouillé encore car ce truc m'intéresse énormément et à force de tourner en rond avec ces possibilités ,j'ai creer un autre arbre en limitant les nodes à celles de l'anagramme puis j'ai cliqué ...Je parcours maintenant le dico qu'une seule fois node par node ,si c'est impossible je saute à la branche suivante ,et en prime j'obtiens classer en ordre alphabétique une liste sans doublons ...

Le temps de recherche pour "anticonstitutionnellements" n.est pas plus long que la création du dico !!!

1er filtre en parcourant le dico:
var
MySet: set of 'A'..'Z';

MySet :=[];
   for x:=0 to length(ANAGRAMME)do
   begin
      if not (ANAGRAMME[x+1] in MySet)then
      MySet :=MySet + [ANAGRAMME[x+1]];
   end;


et en parcourant le dico je teste :

if not(T^.Lettre in MySet )then break;
se qui conduit à la branche suivante...

le deuxiemme filtre, là, j'ai pas trouvé mieux :
je compare les lettres de l'anagramme avec les lettres
du mot en mémoire...

Function Compare(Mot:String;ANA:String):Boolean;
var
a,b:Integer;
begin
   result:=false;
   for b:=length(Mot) downto 1 do
   begin
      for a:=1 to length(ANA)do
      begin
         if (mot[b]=ANA[a])then
         begin
            setlength(mot,length(Mot)-1);
//pour une fois que le downto est utile
            ANA[a]:='?';
//pour dire qu'utiliser
            break;
         end;
      end;

      if(mot='')then
      begin
         result:=true;
         exit;
      end;
   end;
end;


ps:vérifie ton dico certains mots ont plus de 27 lettres
et sont en doubles...

Pour le code au complet comme le mérite te reviens je te l'envoi quand tu voudras ...

pour les autres on verra , lol ...
Yve

Commentaire de yvemoreau le 08/09/2005 00:51:29

oups ç'est pas les anagrammes qu'on trouve ou bien tous les mots possibles avec un anagramme ??? enfin je sais plus...

c'est juste malheureux que ce soit pas en delphi BruNews moi et le vb ...pas sûr ...comment comparer des pommes avec des oranges ?  question temps ça m'a l'air bien aussi quoique c'est pas pareil du tout ...

Commentaire de peanut_man le 02/12/2005 04:08:59

Bonjour a tous, je vais vous avouez que depuis le debut, tout ce que vous parlez me semble du chinois =S... je ne mis connais pas beaucoup en informatique mais je voudrais savoir comment utiliser ce programme qui me serais bien utile pour les anagrammes.Le problème est que : je le télécharge et ensuite quand il vien le temp de l'ouvrir après l'avoir ''d'ézipé'' mon ordinateur me dit que je ne peut l'ouvrir et qu'il me faut un autre programme.... je ne comprend pas comment faire... svp aidez moi à être capable de l'utiliser .

Commentaire de yugos le 09/01/2010 22:27:37

Y a quand même beaucoup plus simple pour retrouver les anagrammes d'un mot.
Il suffit de trier les lettres d'un mot dans l'ordre lexicographique.
Exemple :
amer   ->  aemr
rame   ->  aemr
mare   ->  aemr
maree  ->  aeemr

Les anagrammes auront donc la même empreinte (le même hash).
On range çà dans une table de hachage (une std::map par exemple)
On a accès en temps constant à la liste des anagrammes d'un mot en calculant son hash
C'est ultra compacte. Le programme tient en une dizaine de ligne.
LireDico(const File *iDico,std::map<string,string>& oTable )
   string hash,mot;  
   while(!NotEnded(iDico) )
        LectureLigne(iDico,mot)
        CalculerEmpreinte(mot,hash)
        oTable.insert(hash,mot);

CalculerEmpeinte(const string& iMot, string& oHash)-> string
        ...

RetrouverAnagrammes(const string& iMot,
       const std::map<...>& iTable,
       std::list<string>& oAnagrammes)
  string hash;

CalculerEmpreinte(iMot,hash);
    std::map<...>::iterator it=iTable.find(hash);
    while ( it!= iTable.end() )
      oAnagrammes.push_back(it->second);

Voilà franchement 5 minutes à coder et beaucoup plus rapide (a optimiser si on veut en compressant les mots)