Knuth shuffle: Difference between revisions

→‎{{header|RPL}}: improved code
(→‎{{header|RPL}}: improved code)
Line 4,527:
DUP SIZE 2 '''FOR''' j
j RAND * CEIL
DUP2LAST GET 3 PICKOVER j GET SWAP 4 ROLLD PUT j ROT PUT
-1 '''STEP'''
≫ '<span style="color:blue">KNUTH</span>' STO
1,150

edits