RosettaCodeData/Task/Knuth-shuffle/EasyLang/knuth-shuffle.easy
2023-09-16 17:28:03 -07:00

9 lines
140 B
Text

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