[Solved] Combinations items

000
100
200
010
110
210
020
120
220
001
101
201
011
111
211
021
121
221
002
102
202
012
112
212
022
122
222

(0,0,0)
(1,0,0)
(2,0,0)
(0,1,0)...

    Dim inArray() As Int = Array As Int(0,1,2,3)
    Dim arLength As Int = inArray.length - 1
    Dim outText As String = ""
    Dim c(inArray.Length) As Int
    For Each thing In c
        thing = 0
    Next

    Do While c(0) <> inArray.Length
  
        outText = ""
        For Each thingy In c
            outText = outText & inArray(thingy)
        Next
        Log(outText)
        c(arLength) = c(arLength) + 1
        For t = arLength To 0 Step - 1
            If c(t) > arLength  And t > 0 Then
                c(t) = 0
                c(t - 1) = c(t - 1) + 1
            Else
                Exit
            End If
            Next
        Loop

Sub AppStart (Args() As String)
    ' data for combinations
    Dim inArray() As Object = Array As Object (7,8,9)
    ' get combinations - the second value is how long each array will be so below will return a,b,c,d etc
    Dim result As List = CalculateCombinationsX(inArray,4)
    ' print them
    printCombinations(result)
End Sub

Sub CalculateCombinationsX(inputArray() As Object,resultSize As Int) As List
    Dim resSize As Int = resultSize - 1
    Dim c(resultSize) As Int
    Dim arLength As Int = inputArray.Length - 1

    Dim outputList As List
    outputList.Initialize

    ' initialize the counters  **ignore the unused 'thing' message in logs
    For Each thing As Object In c
        thing = 0
    Next

    ' calculate the combinations
    Do While c(0) <> inputArray.Length
        Dim cCounter As Int = 0
        Dim tempForItem(resultSize) As Object

        For Each thingy In c
            tempForItem(cCounter) = inputArray(thingy)
            cCounter = cCounter + 1
        Next

        ' add to outputList
        outputList.Add(tempForItem)
        ' update & check bounds
        c(resSize) = c(resSize) + 1

        For t = resSize To 0 Step - 1
            If c(t) > arLength  And t > 0 Then
                c(t) = 0
                c(t - 1) = c(t - 1) + 1
            Else
                Exit
            End If
        Next
    Loop
    Return outputList
End Sub



Sub printCombinations(theList As List)
    For Each item In theList
        Dim dummy() As Object = item  ' item is an array so move it to one
        Dim outText As String = ""
        For Each littleItem In dummy
            outText = outText & ", " & littleItem
        Next
        ' pretty output  (x, y, z, ...)
        Log("(" & outText.SubString(2) & ")")   ' substring to jump the ", " added at start
    Next
End Sub

10 PRINT "Ingrese la cantidad de elementos en la lista: ";
20 ENTRADA norte
30 PRINT "Ingrese los elementos de la lista separados por comas:"
40 INPUT lista$
50 DIM elementos$(n)
60 LET elementos$() = SPLIT(lista$, ",")
70 PARA i = 1 HASTA n - 2
80 PARA j = i + 1 A n - 1
90 PARA k = j + 1 PARA n
100 IMPRIMIR elementos$(i) + ", " + elementos$(j) + ", " + elementos$(k)
110 SIGUIENTE k
120 SIGUIENTE j
130 SIGUIENTE i
140 IMPRIMIR "Fin del programa."

    Dim results As List
    results.Initialize
    Dim marker As Long = DateTime.Now
    Dim positions As Int = 4
    Dim b() As String = Array As String("man", "dog", "cat")
    Dim n As Int = Power(b.length, positions) - 1
    Dim d(positions) As Int
    For j = 0 To positions - 1
        d(j) = Power(b.length, positions - j - 1)
    Next
    For i = 0 To n
        Dim v As Int = i
        Dim a(positions) As Int
        For j = 0 To d.Length - 1
            a(j) = v / d(j)
            v = v - a(j) * d(j)
        Next
        results.Add(a)
    Next
    Log(DateTime.Now - marker)    '<1 msec
    For Each a() As Int In results
        Log(b(a(0)) & TAB & b(a(1)) & TAB & b(a(2)) & TAB & b(a(3)))
    Next
    '0
    'man    man    man    man
    'man    man    man    dog
    'man    man    man    cat
    'man    man    dog    man
    'man    man    dog    dog
    'man    man    dog    cat
    'man    man    cat    man
    'man    man    cat    dog
    'man    man    cat    cat
    'man    dog    man    man
    'etc

   Dim sb As StringBuilder
   For Each a() As Int In results
        sb.Initialize
        For j = 0 To d.Length -1
            sb.Append(b(a(j))).Append(TAB)
        Next
        Log(sb.ToString)
    Next