RosettaCodeData/Task/Knuth-shuffle/EasyLang/knuth-shuffle.easy
2024-03-06 22:25:12 -08:00

9 lines
141 B
Text

proc shuffle . a[] .
for i = len a[] downto 2
r = randint i
swap a[r] a[i]
.
.
arr[] = [ 1 2 3 ]
shuffle arr[]
print arr[]