Knuth shuffle: Difference between revisions
Content added Content deleted
(→{{header|RPL}}: improved code) |
|||
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 |
|||
-1 '''STEP''' |
-1 '''STEP''' |
||
≫ '<span style="color:blue">KNUTH</span>' STO |
≫ '<span style="color:blue">KNUTH</span>' STO |