Knuth shuffle: Difference between revisions
→{{header|RPL}}: formatting
(→{{header|RPL}}: formatting) |
|||
Line 4,444:
≪
DUP SIZE 2 '''FOR''' j
j RAND * FLOOR 1 +
DUP2 GET 3 PICK j GET SWAP 4 ROLLD PUT j ROT PUT
≫
|
for j from last downto 2 do:
let k = random integer in range 1 ≤ j ≤ i
|