Jump to content

Undulating numbers: Difference between revisions

Undulating numbers (view source)

Revision as of 21:29, 1 June 2023

159 bytes removed ,  1 year ago
m
→‎{{header|Phix}}: minor tidy
m (→‎{{header|Phix}}: except 53, explain the fix)
m (→‎{{header|Phix}}: minor tidy)
Line 59:
<span style="color: #0000FF;">{</span><span style="color: #000000;">base</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">filter</span><span style="color: #0000FF;">(</span><span style="color: #000000;">u3</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">is_prime</span><span style="color: #0000FF;">),</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%3d"</span><span style="color: #0000FF;">)})</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">un</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">u3</span> <span style="color: #0000FF;">&</span> <span style="color: #000000;">u4</span>
<span style="color: #004080;">integer</span> <span style="color: #000000;">unc</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">un</span><span style="color: #0000FF;">),</span> <span style="color: #000000;">jstart</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">01</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">done</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">false</span>
<span style="color: #008080;">while</span> <span style="color: #008080;">not</span> <span style="color: #000000;">done</span> <span style="color: #008080;">do</span>
<span style="color: #008080004080;">forinteger</span> <span style="color: #000000;">ifinish</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">1length</span> <span style="color: #0080800000FF;">to(</span> <span style="color: #000000;">uncun</span> <span style="color: #0080800000FF;">do)</span>
<span style="color: #004080008080;">atom</span> <span style="color: #000000;">u</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">unc</span> <span style="color: #0000FF;">+for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">bsquarestart</span> <span style="color: #0000FF008080;">+to</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">unfinish</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">unc</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">bsquare</span><span style="color: #0000FF008080;">)do</span>
<span style="color: #008080004080;">ifatom</span> <span style="color: #000000;">u</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">limiti</span><span style="color: #0000FF;">]</span> <span style="color: #0080800000FF;">then*</span> <span style="color: #000000;">donebsquare</span> <span style="color: #0000FF;">=+</span> <span style="color: #0046007060A8;">trueremainder</span><span style="color: #0000FF;">;(</span><span style="color: #000000;">un</span><span style="color: #0080800000FF;">exit[</span><span style="color: #000000;">i</span><span style="color: #0080800000FF;">end],</span><span style="color: #000000;">bsquare</span><span style="color: #0080800000FF;">if)</span>
<span style="color: #000000008080;">unif</span> <span style="color: #000000;">u</span><span style="color: #0000FF;">&></span><span style="color: #000000;">limit</span> <span style="color: #008080;">then</span> <span style="color: #000000;">udone</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span><span style="color: #0000FF;">;</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080000000;">endun</span> <span style="color: #0000FF;">&=</span> <span style="color: #008080000000;">foru</span>
<span style="color: #000000;">j</span> <span style="color: #0000FF008080;">+=end</span> <span style="color: #000000008080;">1for</span>
<span style="color: #000000;">start</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">finish</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">while</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;">"The %,d%s undulating number in base %d is: %,d\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">n</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">ord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">),</span><span style="color: #000000;">base</span><span style="color: #0000FF;">,</span><span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">n</span><span style="color: #0000FF;">]})</span>
Petelomax
7,806

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/343755"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information