Sattolo cycle: Difference between revisions
m
add RPL - bug in loop value
m (add RPL) |
m (add RPL - bug in loop value) |
||
Line 2,047:
|
≪
DUP SIZE
j 1 - RAND * FLOOR 1 +
DUP2 GET 3 PICK j GET SWAP 4 ROLLD PUT j ROT PUT
Line 2,054:
|
'''SATLO''' ''( { order } -- { reorder } )''
for j from last downto
let k = random integer in range 0 ≤ k < j
swap items[j] with items[k]
|