TROUVER TOUS LES ANAGRAMMES D'UN MOT

Commentaire de opossum_farceur le 10/10/2006 16:01:24

Salut,
Ton code est correct seulement pour les mots de 3 caractères différents. Dès que l'on passe à 4 caractères, apparaissent les doublons, au détriment d'arrangements qui eux sont escamotés.
En bref, t'as encore du travail...

Commentaire de Alain Proviste le 10/10/2006 19:35:47 administrateur CS

en lisant ton code je suis assez étonné, car je ne crois pas qu'une fonction non recursive puisse fonctionner pour ce traitement...

Commentaire de Arto_8000 le 12/10/2006 03:03:05

J'ai légèrement modifier le code pour qu'il puisse enlever les doublons. Pour l'instant avec cela je peux seulement calculer toutes les possibilités sans doublons d'un mot de 9 lettres. Quelqu'un a une idée pour optimiser davantage?

<?php
$temps = time();
function permute($mot,$i,$j){
$tmp=$mot[$i];
$mot[$i]=$mot[$j];
$mot[$j]=$tmp;
return $mot;
}
  
function factoriel($n){
if($n == 0){ return 1; }
  return $n*factoriel($n-1); // retourne le nombre courant $n multiplié par $n-1 *$n-1-1 etc..
}
  
$mot='abcdefghi';

echo 'Votre mot :'.$mot.'<br /><br />';
$nb=factoriel(strlen($mot));
$mots_trouve = $mot;

$j=0;
$k=1;
for ($i=0;$i<$nb;$i++){
  if ($k==strlen($mot))
   $k=0;
  if ($j==strlen($mot))
   $j=0;
  
  $mot=permute($mot,$j,$k);
  if (strpos($mots_trouve,$mot) === false)
  {
echo $mot.':'.$j.':'.$k.'<br>';
$mots_trouve .= '|'.$mot;
  }
  $j++;
  $k++;
}
  
echo '<br />Nombre trouvé :'.count(explode('|',$mots_trouve)).'</br>';
echo 'Temps: '.(time()-$temps).' secondes';
?>

Commentaire de Arto_8000 le 13/10/2006 00:06:27

En théorie j'ai seulement rajouter quelque chose pour enlever les doublons. Aussi j'ai brièvement vérifier et je me suis rendu compte que l'algorythme répète souvent les mêmes résultats. Essaie avec le mot "abcdefghi" et tu verras que les permutation finnissent par se répèter, même s'il ne devrait pas. Les 72 permutations trouvés sont celle que son algorythme a permis de trouver et non un défault de mon code.

Commentaire de dobro le 28/10/2006 15:36:46

tiens voila un code qui marche niquel
il est en basic standard (aucune specificité)
donc il doit etre transposable dans tout language informatique je pense...
voila :
Print("Entrez un mot et appuyez sur 'Return': ")
m$=Input()
n= Len(m$)
Dim mo$(n)
Dim p(n)
mo$(n)=m$
z=n
rt:
p(z)=1
dt:
mo$(z-1)=Right(mo$(z),z-1)
z=z-1
If z>1
    Goto rt
EndIf
m$=""
For w=1 To n
    m$=Left(mo$(w),1)+m$
Next w

Print(m$+" ")

gt:
mo$(z+1)=mo$(z)+Left(mo$(z+1),1)
z=z+1
p(z)=p(z)+1
If p(z)<=z
    Goto dt
EndIf
If z<n
    Goto gt
EndIf


Print("FINI !!!!")

k$=Input()

Commentaire de Arto_8000 le 16/12/2006 16:43:20

Mac13 -> Tu parles des Ti83 et Ti83+ ?

Commentaire de Arto_8000 le 16/12/2006 23:08:35

La façon la plus facile serait de la faire en Basic un language implenté dans les ti qui est relativement simple. J'ai jamais fait beaucoup de programmation avec, mais tu peux facilement trouver de l'information la dessus sur le web.

Sinon si tu es très expérimenté dans la programmation il y a aussi l'option de le coder en ASM Z80 et de le transféré sur ta calculatrice ensuite.

http://jlpti83.free.fr/?rub=tibas
http://www.ftp83plus.net/Tutorials/TI83pAsmTut.htm

Commentaire de Arto_8000 le 17/12/2006 18:38:07

Dobro -> C'est pas du tout le même Basic ... c'est légèrement différent. Sur les ti il n'y a pas du tout de Dim, de fonction Left, etc. D'ailleur il y a un tutorial qui vient de sortir là dessus sur le site du zéro.

http://www.siteduzero.com/tuto-3-1524-0-le-ti-basic.html

Tu regarderas par toi-même que c'est pas du tout la même chose.