Mastermind igrica

Ovaj problem odozgo je riješen, postaviću igricu kad je završim. Imam još jedno pitanje.
Treba da napravim program koji ce sam resavati kombinaciju kuglica za mastermind. Uglavnom, u svim algoritmima prvo treba da generisem sve permutacije(u mom slucaju sa ponavljanjem jer je moguce da se ponovi boja kuglice). I moje rešenje je bilo da napravim listu tipa List of Array i redom unosim generisane permutacije u listu. Ali ako koristim funkciju Insert(br,list) svi stari elementi liste dobiju vrijednost novog koji je umetnut.Evo kod:

Code:

    Function GenerateNextPermutation(ByRef order() As Integer)
        Dim i As Integer

        order(0) += 1

        For i = 0 To numColons - 1
            If order(i) < numColons Then
                Exit For
            Else
                If i = numColons - 1 Then
                    Return False
                End If

                order(i) = 0
                order(i + 1) += 1
            End If
        Next i

        Return True

    End Function

    Private Sub CreatePermutations(ByRef list As List(Of Array))

        ' Sve permutacije sa ponavljanjem ce se cuvati u jednoj listi
        ' lista je tipa Array of Integer

        Dim perm(), order(), init(), i As Integer
        ReDim init(numColons - 1)
        ReDim order(numColons - 1)
        ReDim perm(numColons - 1)

        For i = 0 To order.Length - 1
            order(i) = 0
        Next

        For i = 0 To perm.Length - 1
            init(i) = i
        Next

        Dim br As Integer

        For i = 0 To order.Length - 1
            perm(i) = init(order(i))
        Next
        list.Insert(br, perm)

        br += 1

        While GenerateNextPermutation(order)
            For i = 0 To order.Length - 1
                perm(i) = init(order(i))
            Next
            list.Insert(br, perm)
            br += 1
        End While

    End Sub

Forum kao aplikacija na telefonu

Srodne teme