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