Jacobsthal numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,016: / Line 3,016: @@
 ===Testing program===
  ≪ → func count
-    ≪ { } 0 DO
+    ≪ { } 0
-         DUP func IF EVAL THEN ROT SWAP + SWAP ELSE DROP END
+       '''DO''' DUP func
+          '''IF''' EVAL '''THEN''' ROT SWAP + SWAP '''ELSE''' DROP '''END'''
-+
-      UNTIL OVER SIZE count ≥ END
++
+       '''UNTIL''' OVER SIZE count ≥ '''END'''
-      DROP
+       DROP
  ≫ ≫
- 'ASSRT' STO
+ '<span style="color:blue">ASSRT</span>' STO
- ≪ JCBN 1 ≫ 30 ASSRT
+ ≪ <span style="color:blue">JCBN</span> 1 ≫ 30 <span style="color:blue">ASSRT</span>
- ≪ JCBL 1 ≫ 30 ASSRT
+ ≪ <span style="color:blue">JCBL</span> 1 ≫ 30 <span style="color:blue">ASSRT</span>
- ≪ JCBO 1 ≫ 20 ASSRT
+ ≪ <span style="color:blue">JCBO </span>1 ≫ 20 <span style="color:blue">ASSRT</span>
- ≪ DUP JCBN PRIM? ≫ 10 ASSRT
+ ≪ DUP <span style="color:blue">JCBN PRIM?</span> ≫ 10 <span style="color:blue">ASSRT</span>
 {{works with|Halcyon Calc|4.2.7}}
 {{out}}