Esto no acaba nunca

Esto ya funciona pero me repite las combinaciones y necesito números o combinaciones únicas ya que  1, 2, 3 es lo mismo que  3, 2, 1 o  2, 1, 3... solo debe quedar uno de ellos
he probado con poner " .Distinct().ToArray " pero como siempre

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 37}
 
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
 
        For Each pairs As String In pairsCol
 
 
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
                ' MsgBox(pairs.Count)
                ' MsgBox(line.Count)
 
                Me.ListBox1.Items.Add(line)
            Next line
 
        Next pairs
 
 
    End Sub 

salida

20, 24, 34***
20, 24, 37
20, 34, 24***
20, 34, 37
20, 37, 24
20, 37, 34****
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20***
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24****
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24

si os dais cuenta las combinaciones se repiten pero con el orden de los numeros cambiados como podria dejar solo una de ellas ???

Luis


 

Bueno aca esta la lista completa como me lo entrega ahora .esto esta haciedo permutaciones pero no quiero modificar el codigo ya que le tengo otras ideas jejej
solamente quiero dejar una combinacion de cada uno.esto es quitar toda cambinaciones que tengan o coincidan los mismos tres numeros en diferente orden.

ideas pasar esta lista a una variable donde elimine antes de mostrar en el listbox .


ahora esta es la salida como me la muestra.

20, 24, 34
20, 24, 37
20, 34, 24
20, 34, 37
20, 37, 24
20, 37, 34
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24


quiero ir eliminando las combinaciones iguales porque si se mira bien. veras que hay combinaciones que son iguales. solo que cambian las posiciones de los números.


debería quedar asi
20, 24, 34
20, 24, 37
20, 34, 37
24, 34, 37



Luis

Gracias por tu tiempo y GRAN PACIENCIA jejejje lo que necesito es crear un sistema de Combinaciones pero no busco lo normal jejejje busco algo diferente pero en combinaciones únicas ya que codigos de combinaciones hay miles pero son lo basico y normal jejje con eso no se llega a donde quiero ir    , las permutas no me valen para lo que busco te puse lo que me gustaría poder hacer a ver si se puede, sin modificar la funcion del codigo ,solo en el resultado


Luis

puedes detallar un poco mas lo que quieres hacer?

Hola Luis

Ya te comenté lo de meter la lista en un Array list:

        Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
        Dim LISTA As New List(Of String)(Elementos)
 
 
        MsgBox("Con repeticiones")
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next
 
        MsgBox("Sin repeticiones")
        ListBox1.Items.Clear()
        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next
 
 

Con integer:

        Dim Elementos() As Integer = {1, 2, 3, 3, 3, 4, 4, 5}
        Dim LISTA As New List(Of Integer)(Elementos)
 
 
        MsgBox("Con repeticiones")
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next
 
        MsgBox("Sin repeticiones")
        ListBox1.Items.Clear()
        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
        For Each N As String In LISTA
            ListBox1.Items.Add(N)
        Next