Discussion :

[feralp]

Bonjour

j'ai longuement chercher sur ce forum et autre comment lister toutes les combinaisons possibles avec permutation et répétition seulement, je n'arrive pas à adapter les exemples que je trouve...

En fait j'y arrive de cette manière :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        For a As Integer = 0 To 9
            For b As Integer = 0 To 9
                For c As Integer = 0 To 9
 
                    Debug.Print(a & ";" & b & ";" & c)
 
                Next
            Next
        Next

ce qui donne :

0;0;0
0;0;1
0;0;2
0;0;3
0;0;4
0;0;5
0;0;6
0;0;7
0;0;8
0;0;9
0;1;0
0;1;1
0;1;2
0;1;3
0;1;4
0;1;5
0;1;6
0;1;7
0;1;8
0;1;9
0;2;0
0;2;1
0;2;2
0;2;3
0;2;4
0;2;5
0;2;6
0;2;7
0;2;8
0;2;9
0;3;0
...
...
...
9;9;9


Seulement ça fonctionne uniquement pour 3 boucles...
je souhaiterai obtenir ce résultat mais avec un nombre de boucles variables...


Soit avec 2 :
0;0
0;1
0;2
0;3
0;4
0;5
0;6
0;7
0;8
0;9
1;0
1;1
1;2
1;3
...
9;9

Soit avec 4 :
0;0;0;0
0;0;0;1
0;0;0;2
0;0;0;3
0;0;0;4
0;0;0;5
0;0;0;6
0;0;0;7
0;0;0;8
0;0;0;9
0;0;1;0
0;0;1;1
0;0;1;2
0;0;1;3
0;0;1;4
0;0;1;5
0;0;1;6
0;0;1;7
........
9;9;9;9


J'ai compris que je doit faire une fonction récursive mais j'arrive à rien...

Merci de votre aide

[chrismonoye]

Bonsoir,
à voir le résultat escompté, on peut dire qu'il s'agit d'une suite arithmétique de raison 1.
Soit tous les nombres de 0 à 10 puissance le nombre de boucle -1.
Si c'est à visualiser uniquement, ce type de bidouille pourrait peut être convenir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Test2(nbreBoucle As Integer)
 
        For n As Integer = 0 To CInt(((10 ^ nbreBoucle) - 1))
            Dim str As String = n.ToString("D" & nbreBoucle)
            Dim s As String = ""
            For Each c As Char In str
                s += c & ";"
            Next
            Debug.Print(s.Trim(";"c))
        Next
 
    End Sub

...

[shayw]

Salut

ci cela peut aider
ici

[Sehnsucht]

Bonjour,

Ma petite contribution (en partie pour le fun ), une méthode d'extension générique pour générer les permutations des éléments d'un ensemble passé en argument (donc pas forcément des entiers) sur une longueur donnée :

Code :

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

1
2
3
4
5
6
7
<Runtime.CompilerServices.Extension()>
Function Permutations(Of TSource)(ByVal source As IEnumerable(Of TSource), ByVal length As Integer) As IEnumerable(Of IEnumerable(Of TSource))
    Return If(length = 0,
              {Enumerable.Empty(Of TSource)},
              source.SelectMany(Function(__) Permutation(source, length - 1),
                                Function(item, perms) {item}.Concat(perms)))
End Function

Un exemple d'utilisation (utilise une méthode d'extension perso IEnumerable(Of T).ForEach jointe):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Main()
    ' Utilisation du Select pour obtenir un affichage "utile"
    Enumerable.Range(0, 10).
        Permutations(4).
        Select(AddressOf String.Concat).
        ForEach(AddressOf Console.WriteLine)
End Sub
 
<Runtime.CompilerServices.Extension()>
Sub ForEach(Of TSource)(ByVal source As IEnumerable(Of TSource), ByVal action As Action(Of TSource))
    For Each item In source
        action(item)
    Next
End Sub

Chez moi, ceci affiche les 10000 nombres en moins d'une seconde.

Autre exemple pour montrer que cela fonctionne avec autre chose que des nombres (et une autre façon d'exploiter les résultats ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Main()
    Call {ConsoleColor.Red, ConsoleColor.Green, ConsoleColor.Blue}.
        Permutations(8).
        ForEach(Sub(perm)
                    Dim old = Console.BackgroundColor
                    perm.ForEach(Sub(color)
                                     Console.BackgroundColor = color
                                     Console.Write(" ")
                                 End Sub)
                    Console.BackgroundColor = old
                    Console.WriteLine()
                End Sub)
End Sub

Affiche (à un moment)


Cordialement !

[feralp]

Merci à tous pour vos réponses.

Je choisi la solution de Sehnsucht qui est particulièrement efficace.

Sehnsucht, pourrais tu m'expliquer un peu dans le détail le fonctionnement de ces routines car je doit la modifier afin de sortir de la boucle avant sa fin si une certaine condition est remplie ?

En fait pour chaque série obtenue, exemple 0015, si la condition est remplie, il faudrait sauter à la suivante, soit 0020, et donc sauter les 0016, 0017, 0018 et 0019...

Merci

[chrismonoye]

Bonjour,
ci dessous une traduction VB de cette discussion ;
(En application Windows, vs2012 pour "Yield")

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
    Class arrangements
 
        Private Iterator Function Prepend(Of T)(first As T, rest As IEnumerable(Of T)) As IEnumerable(Of T)
            Yield first
            For Each item As T In rest
                Yield item
            Next
        End Function
 
        Private Iterator Function M(p As Integer, t1 As Integer, t2 As Integer) As IEnumerable(Of IEnumerable(Of Integer))
            If p = 0 Then
                Yield Enumerable.Empty(Of Integer)()
            Else
                For first As Integer = t1 To t2
                    For Each rest As IEnumerable(Of Integer) In M(p - 1, first, t2)
                        Yield Prepend(first, rest)
                    Next
                Next
            End If
        End Function
 
        Public Sub Main(p As Integer, T1 As Integer, T2 As Integer)
            For Each sequence As IEnumerable(Of Integer) In M(p, T1, T2)
                ' Console.WriteLine(String.Join(", ", sequence))
                Console.WriteLine(String.Concat(sequence))
            Next
        End Sub
 
    End Class

C'est hyper rapide et peut être plus facilement compréhensible (pour moi, c'est sûr)... et peut être plus facilement exploitable pour agir sur les boucles ?
A voir...