Jacobsthal numbers: Difference between revisions
m
→Testing program: page layout
Not a robot (talk | contribs) (Add SETL) |
m (→Testing program: page layout) |
||
Line 3,016:
===Testing program===
≪ → func count
≪ { } 0
'''IF''' EVAL '''THEN''' ROT SWAP + SWAP '''ELSE''' DROP '''END'''
1 + ▼
'''UNTIL''' OVER SIZE count ≥ '''END'''
≫ ≫
'<span style="color:blue">ASSRT</span>' STO
≪ <span style="color:blue">JCBN</span> 1 ≫ 30 <span style="color:blue">ASSRT</span>
≪ <span style="color:blue">JCBL</span> 1 ≫ 30 <span style="color:blue">ASSRT</span>
≪ <span style="color:blue">JCBO </span>1 ≫ 20 <span style="color:blue">ASSRT</span>
≪ DUP <span style="color:blue">JCBN PRIM?</span> ≫ 10 <span style="color:blue">ASSRT</span>
{{works with|Halcyon Calc|4.2.7}}
{{out}}
|