Discussion :

[toni___]

Voici un extrait de code vbs,
qui détermine toutes les combinaisons selon un choix de caractères mis à disposition dans un vecteur (abc..ABC..;:/!$..123..)
qui se nomme : vec_caractere()

Dans cette extrait de code, vous constaterez qu'il y a 6 boucle while, donc destiné à créer toutes les combinaisons de mots
d'une longeur de 6 caractères.

J'aimerais savoir comment faire pour optimiser l'écriture de ce code afin qu'il fonctionne pour les longeurs de mot de 1 à 12 caractères.

Car dans l'état actuel si je veux qu'il fonctionne de 1 à 12, je devrais copier/coller ce code l'un à la suite de l'autre
et soit enlever une ou plusieurs boucles while et/ou ajouter une ou plusieurs boucles while...

voici par exemple pour un mot de longeur 6 :

indice(1)=0
while (indice(1) <= limite_sup) and (resultat=false)
indice(2)=0
while (indice(2) <= limite_sup) and (resultat=false)
indice(3)=0
while (indice(3) <= limite_sup) and (resultat=false)
indice(4)=0
while (indice(4) <= limite_sup) and (resultat=false)
indice(5)=0
while (indice(5) <= limite_sup) and (resultat=false)
indice(6)=0
while (indice(6) <= limite_sup) and (resultat=false
combi =""
for l = 1 to longeur_actuel
combi = combi & vec_caractere(indice(l))
next
'msgbox combi

cpt(6) = cpt(6) + 1
totCpt = totCpt +1
resultat = isPassword(combi)

indice(6) = indice(6) + 1
wend '6
indice(5) = indice(5) + 1
wend '5
indice(4) = indice(4) + 1
wend '4
indice(3) = indice(3) + 1
wend '3
indice(2) = indice(2) + 1
wend '2
indice(1) = indice(1) + 1
wend '1

[tbc92]

Une indication rapide : récursivité.

[toni___]

récursivité : je bloque, la récursivité ne résout pas le problème du nombre de boucle en rapport au nombre de la longeur.

Si tu as une solution (extrait de code) qui prouve le contraire, je suis prenneur...

[tbc92]

Code :

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

1
2
3
4
 
ch est une chaîne 
ch = "abcdefghijkl"
traite ( ch, "", 12)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
PROCEDURE traite(ch, ch_actuelle , n)
i, t est un entier 
t = Taille( ch)
SI n = 0 ALORS
	Trace( ch_actuelle) 
SINON
	POUR i = 1 A t
		traite ( ch, ch_actuelle + ch  [[i]] , n-1)	
	FIN
FIN

C'est en langage 'Windev', mais tu devrais savoir adapter à n'importe quel langage.
Attention, pour des chaines de longueur 12, tu vas avoir des milliards de combinaisons, ce n'est absolument pas raisonnable de toutes les recenser.

Si je lance traite ( "abcd","",3) , j'obtiens bien les 64 réponses :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
aaa
aab
aac
aad
aba
abb
abc
abd
aca
acb
acc
acd
ada
adb
adc
add
baa
bab
bac
bad
bba
bbb
bbc
bbd
bca
bcb
bcc
bcd
bda
bdb
bdc
bdd
caa
cab
cac
cad
cba
cbb
cbc
cbd
cca
ccb
ccc
ccd
cda
cdb
cdc
cdd
daa
dab
dac
dad
dba
dbb
dbc
dbd
dca
dcb
dcc
dcd
dda
ddb
ddc
ddd

[valentin03]

De combinaisons, je trouve 479 millions

[tbc92]

479 Millions ... pour un ""alphabet''' de combien de lettres, et des mots de quelle longueur ?