Sattolo cycle: Difference between revisions
m
add RPL
m (add RPL) |
m (add RPL) |
||
Line 2,040:
=={{header|RPL}}==
{{works with|Halcyon Calc|4.2.7}}
≪ DUP SIZE 1 '''FOR''' j▼
{| class="wikitable"
j 1 - RAND * FLOOR 1 +▼
! RPL code
DUP2 GET 3 PICK j GET SWAP 4 ROLLD PUT j ROT PUT▼
! Comment
-1 '''STEP'''▼
|-
≫ ‘'''SATLO'''’ STO ▼
|
≪
▲ j 1 - RAND * FLOOR 1 +
▲ DUP2 GET 3 PICK j GET SWAP 4 ROLLD PUT j ROT PUT
▲ -1 '''STEP'''
|
'''SATLO''' ''( { order } -- { reorder } )''
for j from last downto 1 do:
let k = random integer in range 0 ≤ k < j
swap items[j] with items[k]
|}
{{in}}
<pre>
| |||