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.

@+