Knuth shuffle: Difference between revisions

m
m (→‎{{header|RPL}}: typos, minor code optimization)
Line 1,667:
<syntaxhighlight lang="text">
proc shuffle . a[] .
for i = len a[] downto 2
r = random i
swap a[r] a[i]
.
.
arr[] = [ 1 2 3 ]
call shuffle arr[]
print arr[]
</syntaxhighlight>
1,969

edits