mirror of
https://gitlab.com/c3d/db48x.git
synced 2024-09-29 05:36:58 +02:00
328c2e484f
Better to update the demo and unit configuration files when updating Fixes: #547 Signed-off-by: Christophe de Dinechin <christophe@dinechin.org>
65 lines
812 B
Text
65 lines
812 B
Text
« 0 0 7199
|
||
for i
|
||
i 180. ÷ 3.14159265358979323846 × sin exp +
|
||
next »
|
||
'DM32' STO
|
||
|
||
« Ticks 0
|
||
do
|
||
8 Swap 1 +
|
||
while
|
||
Duplicate2
|
||
do
|
||
1 -
|
||
until
|
||
Duplicate2 5 + Pick - abs Duplicate2 - × not
|
||
end
|
||
repeat
|
||
Drop
|
||
while
|
||
Swap Duplicate 1 same
|
||
repeat
|
||
-
|
||
end 1 - Swap
|
||
end Drop
|
||
until
|
||
Duplicate 8 same
|
||
end →List Ticks Rot - »
|
||
'NQueens' STO
|
||
|
||
« Ticks 0 1 1000
|
||
start
|
||
Drop 0
|
||
do
|
||
8 Swap 1 +
|
||
while
|
||
Duplicate2
|
||
do
|
||
1 -
|
||
until
|
||
Duplicate2 5 + Pick - abs Duplicate2 - × not
|
||
end
|
||
repeat
|
||
Drop
|
||
while
|
||
Swap Duplicate 1 same
|
||
repeat
|
||
-
|
||
end 1 - Swap
|
||
end Drop
|
||
until
|
||
Duplicate 8 same
|
||
end →List
|
||
next Ticks Rot - »
|
||
'SLOWQ' STO
|
||
|
||
« 1 Swap
|
||
while
|
||
Duplicate 0 same not
|
||
repeat
|
||
Swap Over × Swap 1 -
|
||
end Drop »
|
||
'Fact' STO
|
||
|
||
VariablesMenu
|
||
5 FractionSpacing
|