Discussion :

[ixterm]

bonjour

Pourriez vous me donner une technique pour pouvoir effectuer une permutation des chaines da caractères?

Par exemple, char A="ABCD";

Je veux implementer une fonction f() telle que :

f(A) génère : ABCD, BADC,CDAB.........etc (il y a 24 possibilités)

J'arrive pas à trouver l'algorithme de base


merci

[Guigui_]

fait une recherche sur ce forum avec les mots tel que:
"combinaison", "denombrement", "permutation" ...
Ca a déjà été traité des milliers de fois

[hamster]

ou "anagramme", tout simplement

[ixterm]

OK, ben je chercherai avec ces mots clés

thanks

[abdmaa]

J'avais fait ce genre de test (à l'époque...) très interressant
voici donc en REXX une routine qui fait ce genre de chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
ARG SOURCE
DEBUT=''
CALL GENERER DEBUT,SOURCE
EXIT
GENERER: PROCEDURE
ARG DEBUT,SOURCE
IF LENGTH(SOURCE)=1 THEN DO
   DATA=DEBUT||SOURCE
   'EXECIO 1 DISKW PERMUT RESULT A (STRING' DATA
END
ELSE DO
   DO I=1 TO LENGTH(SOURCE)
      MOT=SOURCE
      MOT=DELSTR(MOT,I,1)
      GENERER(DEBUT||SUBSTR(SOURCE,I,1),MOT)
   END
END
RETURN DEBUT||SOURCE

Bonne chance