Queria saber como puedo hacer un programa que combine con repetiones una serie de caracteres, por ejemplo:

Tengo la palabra: camion

¿Como hago para saber todas las combinaciones posibles de esa palabra(con repeticiones)?

1 saludo!

Saludos:

Lo que yo haria seria descomponer el texto en caracteres, asignarles una posicion y despues armar las diferentes formas, de acuerdo a la combinacion de posiciones.

Espero ayude.


JOSE LUIS

Prueba Esto... Solo Falta que le pongas un if si algo repite... pero creo que hara cualqier combinacion posible

Código:

Public Class Form1
    Dim Caracteres(1000) As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        Dim Combinacion As String
 
        For i = 0 To TextBox1.Text.Length - 1
            Caracteres(i) = TextBox1.Text.Substring(i, 1)
        Next
 
        For i = 0 To TextBox1.Text.Length - 1
            For j = 0 To TextBox1.Text.Length - 1
 
                Combinacion = TextBox1.Text.Remove(i, 1)
                Combinacion = Combinacion.Insert(i, Caracteres(j))
 
                Combinacion = Combinacion.Remove(j, 1)
                Combinacion = Combinacion.Insert(j, Caracteres(i))
 
                ListBox1.Items.Add(Combinacion)
 
            Next
        Next
    End Sub
End Class

Iniciado por bto.rdz

Prueba Esto... Solo Falta que le pongas un if si algo repite... pero creo que hara cualqier combinacion posible

Código:

Public Class Form1
    Dim Caracteres(1000) As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j As Integer
        Dim Combinacion As String
 
        For i = 0 To TextBox1.Text.Length - 1
            Caracteres(i) = TextBox1.Text.Substring(i, 1)
        Next
 
        For i = 0 To TextBox1.Text.Length - 1
            For j = 0 To TextBox1.Text.Length - 1
 
                Combinacion = TextBox1.Text.Remove(i, 1)
                Combinacion = Combinacion.Insert(i, Caracteres(j))
 
                Combinacion = Combinacion.Remove(j, 1)
                Combinacion = Combinacion.Insert(j, Caracteres(i))
 
                ListBox1.Items.Add(Combinacion)
 
            Next
        Next
    End Sub
End Class

funciona perfeeecto! muchas gracias

bueno la verdad es que tiene un fallo, he probado a escribir "ab" en el textbox1 y las combinaciones que me salen en el listbox1 son las siguientes:

ab
ba
ba
ab

como puedes ver las combinaciones se repiten, el "ab" y el "ba" aparecen dos veces y solo deberian aparecer una vez, por lo demas esta perfecto

si aclare que se repetirian... pero si no quieres que repitan...

Código:

Public Class Form1
    Dim Caracteres(1000) As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, k As Integer
        Dim Combinacion As String
        Dim Existe As Boolean
 
        For i = 0 To TextBox1.Text.Length - 1
            Caracteres(i) = TextBox1.Text.Substring(i, 1)
        Next
 
        For i = 0 To TextBox1.Text.Length - 1
            For j = 0 To TextBox1.Text.Length - 1
 
                Existe = False
 
                Combinacion = TextBox1.Text.Remove(i, 1)
                Combinacion = Combinacion.Insert(i, Caracteres(j))
 
                Combinacion = Combinacion.Remove(j, 1)
                Combinacion = Combinacion.Insert(j, Caracteres(i))
 
                For k = 0 To ListBox1.Items.Count - 1
                    If Combinacion = ListBox1.Items(k) Then Existe = True
                Next
 
                If Existe = False Then ListBox1.Items.Add(Combinacion)
 
            Next
        Next
    End Sub
End Class

buen aporte ^^

una cosilla más:
cuando pongo los caracteres "abc" me aparecen las combinaciones:

abc
bac
cba
acb

pero faltan las combinaciones:

bca
cab

¿como se podria resolver? (disculpa las molestias por tanta pregunta)

No te Preocupes... se me hizo interesante tu tema :P... y auque he estado un poco ocupado aqui esta.

Me gusto mucho como quedo.. usalo para algo bueno , y si fuera una palabra de unas 15 letras o mas, seguramente el tiempo de computo sera notorio
Saludos!.

Código:

Dim Caracteres(1000) As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, k, l, x As Integer
        Dim Combinacion As String
        Dim Existe As Boolean
 
 
        ListBox1.Items.Add(TextBox1.Text)
 
        Do
            x = ListBox1.Items.Count
            For l = 0 To ListBox1.Items.Count - 1
 
                For i = 0 To TextBox1.Text.Length - 1
                    Caracteres(i) = ListBox1.Items(l).ToString.Substring(i, 1)
                Next
 
                For i = 0 To TextBox1.Text.Length - 1
                    For j = 0 To TextBox1.Text.Length - 1
 
                        Existe = False
 
                        Combinacion = ListBox1.Items(l).ToString
 
                        Combinacion = Combinacion.Remove(i, 1)
                        Combinacion = Combinacion.Insert(i, Caracteres(j))
 
                        Combinacion = Combinacion.Remove(j, 1)
                        Combinacion = Combinacion.Insert(j, Caracteres(i))
 
                        For k = 0 To ListBox1.Items.Count - 1
                            If Combinacion = ListBox1.Items(k) Then Existe = True
                        Next
 
                        If Existe = False Then ListBox1.Items.Add(Combinacion)
 
                    Next
                Next
 
            Next
        Loop Until x = ListBox1.Items.Count
 
    End Sub

te recuerdo que si corres 2 veces sin limpiar el listbox va a tronar. ademas que el timepo de computo aumenta bastante cada vez que le agregamos una letra a la palabra.. si quieres reducir el tiempo de computo es cuestion de unos cuantos if... pero eso ya te toca, espero te haya sido muy util.

por ejemplo con una palabra de:

longitud 2 los resultados fueron 2 (2!)
longitud 3 resultados 6 (3!)
longitud 4 resultados 24 (4!)
5-120 (5!)
6-720 (6!)
...
10-3'628,800 (10!)
...
(factoriales)


en verdad cada letra es bastante tiempo de computo extra como veras... asi que te recomiendo intentes reducir el timepo de computo.

aaahora si me salen todas las combinaciones, lo malo es que si pongo 7 o mas letras se me pilla el programa XD pero bueno, eso ya es cosa de mi procesador jeje muchas gracias por todo ^^

Hola, estoy tratando de hacer un algoritmo que me muestre todas las combinaciones de n elementos tomados de m en m. En mi caso, estoy trabajando con variaciones con repeticion (n^p).
He probado el algoritmo que aquí se propone (ya se que no es para variaciones con repetición), y no creo que sea óptimo en ningún caso.

La verdad es que, el programa, no calcula las combinaciones correctamente; de hecho calcula todas las combinaciones y muchas más de las necesarias (repetidas, claro está). Y para solventar el "problema" se ha añadido un bucle dentro del bucle principal para comprobar si la combinación que se acaba de calcular ya se ha añadido a la lista o aún no.
En el caso que no se haya añadido, la añade.

Como bien observarán, éste no es un buen método ya que como más crece la lista más tarda el algoritmo en sacar una combinación que no haya sido calculada aún.

Para 5 o 6 elementos, funciona bastante bien, pero como bien dice un compañero, para 7 o más, el programa deja de ser "operativo".

Estoy trabajando en ello, si saco un código un poco más rápido lo postearé.
Y por supuesto si alguien tiene ideas, aportadlas!

Saludos

mm... si la verdad el algoritmo que propongo es muy rudimentario, ya que la verdad lo hice solo para contestar lo preguntado por Final Star. Me parece que es bastante ingenioso y puede ser optimizado dedicandole un poco mas de tiempo... bueno te deseo suerte!.

Mira, no entiendo como es el tipo de combinación que buscas, pero he Optimízado el codigo para el mismo caso, busca todas las combinaciones hasta 10 digitos aproximadamente en 20-30 segs, despues de eso se vuelve practicamente imposible e impractico ya que con 11 digitos tendras casi 40 millones de respuestas.

Espero esto te de una idea para que lo apliques a el tipo de combinación que necesitas.

Suerte y Saludos.

Código:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Resultados As List(Of List(Of Char))
        Dim tx As String = TxtCombina.Text
        Dim caracteres As List(Of Char)
        Dim CombinacionCadena As String = vbNullString
        Dim ListaAImprimir As New List(Of String)
 
        caracteres = tx.ToList
 
        Select Case tx.Length
            Case 2
                Resultados = Combina2(caracteres)
            Case 3
                Resultados = Combina3(caracteres)
            Case 4
                Resultados = Combina4(caracteres)
            Case 5
                Resultados = Combina5(caracteres)
            Case 6
                Resultados = Combina6(caracteres)
            Case 7
                Resultados = Combina7(caracteres)
            Case 8
                Resultados = Combina8(caracteres)
            Case 9
                Resultados = Combina9(caracteres)
            Case 10
                Resultados = Combina10(caracteres) '' hasta aqui lo probe con mi pc y funciona bien, 
                ''20-30 segundos aprox, despues lo probe con 12 y es practicamente inutil para cualquier pc.
            Case 11
                Resultados = Combina11(caracteres) '' aqui son ya casi 40 millones de listas de caracteres
                ''con una longitud de 12 seran 479 millones de listas de caracteres de 12 caracteres 
                ''cada lista lo que nos da un total de 5,748 millones de caracteres
        End Select
 
 
        ''Mostrar los resultados...
        For Each Combinacion In Resultados '' el imprimir los resultados en pantalla puede ser lento 
            CombinacionCadena = vbNullString
            For i = 0 To Combinacion.Count - 1 '' por lo que recomiento que no lo hagas...
                CombinacionCadena = CombinacionCadena & Combinacion(i).ToString
            Next
            ListaAImprimir.Add(CombinacionCadena)
        Next
 
        ListBox1.Items.AddRange(ListaAImprimir.ToArray)
 
    End Sub
    Function Combina11(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina10(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina10(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina9(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina9(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina8(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina8(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina7(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina7(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina6(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina6(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina5(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina5(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina4(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina4(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina3(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
    Function Combina3(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim ResultadoAnterior As List(Of List(Of Char))
        Dim ElementosAnteriores As New List(Of Char)
        Dim CaracterVariable As Char = vbNullChar
        Dim Lista As List(Of Char)
        Dim Vector() As Char
 
        CaracterVariable = Elementos(0)
 
        For i = 1 To Elementos.Count - 1
            ElementosAnteriores.Add(Elementos(i))
        Next
 
        ResultadoAnterior = Combina2(ElementosAnteriores)
 
        For i = 0 To Elementos.Count - 1
            For Each ListaAnterior In ResultadoAnterior
                Lista = New List(Of Char)
                Vector = ListaAnterior.ToArray
                Lista = Vector.ToList
                Lista.Insert(i, CaracterVariable)
                Resultado.Add(Lista)
            Next
        Next
 
        Return Resultado
 
    End Function
 
    Function Combina2(ByVal Elementos As List(Of Char)) As List(Of List(Of Char))
        Dim Resultado As New List(Of List(Of Char))
        Dim Lista As List(Of Char)
 
        Lista = New List(Of Char)
        Lista.Add(Elementos(0))
        Lista.Add(Elementos(1))
        Resultado.Add(Lista)
 
        Lista = New List(Of Char)
        Lista.Add(Elementos(1))
        Lista.Add(Elementos(0))
        Resultado.Add(Lista)
 
        Return Resultado
    End Function
 
End Class

Me atrevo a asegurarte que a este algoritmo le queda poco o nada por optimizar (quizá algunos tipos de variables), como seguramente puedes observar cuando pruebes este código, notaras que es exageradamente más tardado imprimir todos los resultados en la pantalla que generarlos, y ahora sí, no repite ninguna combinación, si no que todo lo contrario aprovecha las que ya genero anteriormente para generar las nuevas combinaciones.

Hola amigos necesito un programa que me haga las posibles combinaciones de un menu de comidas ej:

Principio:frijol
principio:arveja

bandeja:carne
bandejaollo

jugo:mora
jugo:mango

precio:5000
precio:6000

principio:frijol
bandeja:carne
jugo:mora
precio:5000

principio:frijol
bandejaollo
jugo:mango
precio:6000

etc...

Les agradezco su colaboracion, espero que me entiendan.