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