Inconsummate numbers in base 10: Difference between revisions
→{{header|Phix}}: extended to 100kth
(Added Action!) |
(→{{header|Phix}}: extended to 100kth) |
||
Line 374:
<!--<syntaxhighlight lang="phix">(phixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
<span style="color: #
--constant limit = 10_000*269 -- NB: 269 magic'd out of thin air</span>
<span style="color: #008080;">constant</span> <span style="color: #000000;">limit</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">100_000</span><span style="color: #0000FF;">*</span><span style="color: #000000;">290</span> <span style="color: #000080;font-style:italic;">-- NB: 290 magic'd out of thin air</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">consummate</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #004600;">false</span><span style="color: #0000FF;">,</span><span style="color: #000000;">limit</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">inconsummate</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
Line 402 ⟶ 404:
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"One thousandth %,d\n"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">inconsummate</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1_000</span><span style="color: #0000FF;">])</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Ten thousandth %,d\n"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">inconsummate</span><span style="color: #0000FF;">[</span><span style="color: #000000;">10_000</span><span style="color: #0000FF;">])</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"100 thousandth %,d\n"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">inconsummate</span><span style="color: #0000FF;">[</span><span style="color: #000000;">100_000</span><span style="color: #0000FF;">])</span>
<!--</syntaxhighlight>-->
{{out}}
Line 414 ⟶ 417:
One thousandth 6,996
Ten thousandth 59,853
100 thousandth 536,081
</pre>
| |||