Array.Shuffle (gb)

Sub Shuffle ( )

Поскольку 3.13

Randomly shuffle the array using the Fisher–Yates algorithm.

Dim A As String[] = ["G", "A", "M", "B", "A", "S"]
A.Shuffle()
Print A.Join() 
B,A,G,A,M,S