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 : 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 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.
@+
Partager