shuffle string of array

MLDev said:

B4X:

' Knuth's Algorithm P
Dim n As Int = alphabets.Length
Dim r As Int
Dim t As String
   
For i = 0 To n - 1
   r = Rnd(i, n)
   t = alphabets(i)
   alphabets(i) = alphabets(r)
   alphabets(r) = t
Next

Click to expand...

Sub ShuffleArray(arr() As String)
   Dim n As Int = arr.Length-1
Dim r As Int
Dim t As String
    
For i = 0 To n - 1
    r = Rnd(i, n)
    t = arr(i)
    arr(i) = arr(r)
    arr(r) = t
Next
Return arr
End Sub

ShuffleArray(YourArr)

DrownedBat said:

Any way to reverse this process?

take alphabets = {"C", "A", "I", "D", "G", "J", "H", "H", "B", "F"};
and arrange it back into alphabets = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J"};

Click to expand...