Optimisation algo permutations éléments d'1 ensemble
Bonjour, :)
j'espère être sur le bon forum ;; :?
En fait je souhaiterai optimiser une procédure réalisé à la base en vb qui donne toutes les permutations d'1 ensemble donné (tableau)
Ma procédure est du style:
Code:
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
| procedure Permutation(t() tableau d'entier, s chaine de caractère)
i, j, k entier
t2() tableau d'entier
Si s = "" Alors s = "("
Pour i = 0 à Indice_superieur (t)
Si (Indice_superieur (t) = 0) Alors
Afficher (s & "," & t(0) & ")") ' fin du tableau affiche l'ensemble (s)
Sinon
' création d'1 tableau t2 égal à t moins l'élément t(i)
ReDimmensionner t2(Indice_superieur (t) - 1)
k = 0
Pour j = 0 à Indice_superieur (t)
si j <> i Alors
t2(k) = t(j)
k = k + 1
Fin si
Prochain
' appel récursif de la procédure avec le nouveau tableau et la nouvelle chaine
si s <> "(" Alors
Permutation t2, s & "," & t(i)
Sinon
Permutation t2, s & t(i)
Fin si
Fin si
Prochain
Fin procedure |
J'aurai pu poster sur vb mais ma question est pour optimiser 1 algorythme de permutation d'élément. :oops:
@+
