[Ayuda] permutaciones .net

[oscarj24]

Hola a todos  ,

estaba realizando una aplicacion en donde necesito todas las combinaciones posibles de numeros del 0 al 9 en grupos de 6.

Por lo que creo que deberia tener algo asi:

000000
111111
222222
333333
444444
555555
666666
777777
888888
999999

y luego mezclarlos para obtener numeros de 6 digitos pero que toleren
numeros que van del 0 al 9, alguna idea?

PD. encontre ejemplos de permutaciones pero no me fueron utiles ya
que no tengo idea de como agruparlos en 6, saludos!

[neoncyber]

Podrias utilizar estructuras for anidadas con IFs dependiendo de las restricciones del problema, tal vez no sea una forma rapida de hacer las cosas pero podria funcionar.

Saludos

[seba123neo]

aca tenes un ejemplo que es facil adaptarlo.

aclaro que si vos queres permutaciones de 6 y realizados con 10 numeros (del 0 al 9), eso daria un total de 10 mil millones de valores (10 elevado a la 10) si lo haces con valores que pueden repetirse.

pero si los haces con valores sin repeticion la cifra seria factorial de 10! o sea 3628800 de valores.

este ejemplo lo hace de la longitud que quieras pero sin repeticion.

Código (vb) [Seleccionar] Expandir

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim inputLine As String = "123"

        Dim rec As New Recursion()
        rec.InputSet = rec.MakeCharArray(inputLine)
        rec.CalcPermutation(0)

        Debug.WriteLine("# of Permutations: " + rec.PermutationCount.ToString)
    End Sub

    Class Recursion
        Private elementLevel As Integer = -1
        Private numberOfElements As Integer
        Private permutationValue As Integer() = New Integer(-1) {}

        Private m_inputSet As Char()
        Public Property InputSet() As Char()
            Get
                Return m_inputSet
            End Get
            Set(ByVal value As Char())
                m_inputSet = value
            End Set
        End Property

        Private m_permutationCount As Integer = 0
        Public Property PermutationCount() As Integer
            Get
                Return m_permutationCount
            End Get
            Set(ByVal value As Integer)
                m_permutationCount = value
            End Set
        End Property

        Public Function MakeCharArray(ByVal InputString As String) As Char()
            Dim charString As Char() = InputString.ToCharArray()
            Array.Resize(permutationValue, charString.Length)
            numberOfElements = charString.Length
            Return charString
        End Function

        Public Sub CalcPermutation(ByVal k As Integer)
            elementLevel += 1
            permutationValue.SetValue(elementLevel, k)

            If elementLevel = numberOfElements Then
                OutputPermutation(permutationValue)
            Else
                For i As Integer = 0 To numberOfElements - 1
                    If permutationValue(i) = 0 Then
                        CalcPermutation(i)
                    End If
                Next
            End If
            elementLevel -= 1
            permutationValue.SetValue(0, k)
        End Sub

        Private Sub OutputPermutation(ByVal value As Integer())
            For Each i As Integer In value
                Debug.Write(m_inputSet.GetValue(i - 1))
            Next
            Debug.WriteLine("")
            PermutationCount += 1
        End Sub
    End Class
End Class


saludos.

[oscarj24]

Gracias por la ayuda, pero encontre otro ejemplo que tenia implementadas muchisimas funciones, cheka esta web: http://www.codeproject.com/KB/recipes/Combinatorics.aspx

a mi me sirvio, pero vale la intencion.