Tengo estas dos funciones Permutaciones y CambiarPosiciones lo que hago con ellas es obtener las combinaciones de una palabra por ejemplo: dog entonces tengo {odg, ogd, dgo, gdo, god, dog} todo esta bien ahí, lo que pasa es que me dicen que una función recursiva no debe ir dentro de un ciclo y eso es lo que quiero solucionar, ¿cómo puedo arreglar el método Permutaciones para quitarle el ciclo y hacer lo mismo?, aquí dejo los códigos de las funciones:
Function Permutaciones(Cadena As String, PosicionUno As Integer, PosicionDos As Integer) As String
Dim varcadena As String = ""
Dim i = PosicionUno
If PosicionUno <> PosicionDos Then
For i = PosicionUno To PosicionDos
Cadena = CambiarPosiciones(Cadena, PosicionUno, i)
Permutaciones(Cadena, PosicionUno + 1, PosicionDos)
Cadena = CambiarPosiciones(Cadena, PosicionUno, i)
Next
Else
varcadena = "-" + Cadena
End If
Console.WriteLine(varcadena)
End Function
Function CambiarPosiciones(ByVal CadenaCambiar As String, PosicionUnoCambiar As Integer, PosicionDosCambiar As Integer)
Dim Temporal As Char
Dim VectorChar() = CadenaCambiar.ToCharArray
Temporal = VectorChar(PosicionUnoCambiar)
VectorChar(PosicionUnoCambiar) = VectorChar(PosicionDosCambiar)
VectorChar(PosicionDosCambiar) = Temporal
Return VectorChar
End Function