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