9 lines
143 B
Text
9 lines
143 B
Text
proc shuffle &a[] .
|
|
for i = len a[] downto 2
|
|
r = random 1 i
|
|
swap a[r] a[i]
|
|
.
|
|
.
|
|
arr[] = [ 1 2 3 4 ]
|
|
shuffle arr[]
|
|
print arr[]
|