Knuth shuffle: Difference between revisions
Content added Content deleted
(→{{header|RPL}}: improved code) |
m (→{{header|RPL}}: typo) |
||
| Line 4,527: | Line 4,527: | ||
DUP SIZE 2 '''FOR''' j |
DUP SIZE 2 '''FOR''' j |
||
j RAND * CEIL |
j RAND * CEIL |
||
LAST OVER j GET PUT j ROT PUT |
GET LAST OVER j GET PUT j ROT PUT |
||
-1 '''STEP''' |
-1 '''STEP''' |
||
≫ '<span style="color:blue">KNUTH</span>' STO |
≫ '<span style="color:blue">KNUTH</span>' STO |
||