Pan base non-primes: Difference between revisions

m
→‎{{header|Phix}}: reverted to the slightly clearer and simpler if/else of Wren
m (→‎{{header|Raku}}: make code match output)
m (→‎{{header|Phix}}: reverted to the slightly clearer and simpler if/else of Wren)
Line 75:
<span style="color: #008080;">for</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">3</span> <span style="color: #008080;">to</span> <span style="color: #000000;">lim</span> <span style="color: #008080;">do</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">digits</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sq_sub</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">n</span><span style="color: #0000FF;">),</span><span style="color: #008000;">'0'</span><span style="color: #0000FF;">)</span>
<span style="color: #004080008080;">boolif</span> <span style="color: #0000FF;">(</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">compositen</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">0</span> <span style="color: #004600008080;">and</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">></span><span style="color: #000000;">10</span><span style="color: #0000FF;">true)</span>
<span style="color: #008080;">if</span> <span style="color: #008080;">notor</span> <span style="color: #0000FF;">((</span><span style="color: #7060A8000000;">remaindern</span><span style="color: #0000FF;">(></span><span style="color: #000000;">n9</span><span style="color: #0000FF;">,</span><span style="color: #000000008080;">10and</span><span style="color: #0000FF;">)=</span><span style="color: #0000007060A8;">0gcd</span> <span style="color: #0080800000FF;">and(</span> <span style="color: #000000;">ndigits</span><span style="color: #0000FF;">)></span><span style="color: #000000;">101</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">orthen</span>
<span style="color: #0000FF;">(</span><span style="color: #000000;">npbnp</span><span style="color: #0000FF;">></span><span style="color: #000000;">9</span> <span style="color: #008080;">and</span> <span style="color: #7060A8;">gcd</span><span style="color: #0000FF;">(</span><span style&="color: #000000;">digits</span><span style="color: #0000FF;">)></span><span style="color: #000000;">1</span><span style="color: #0000FF;">))</span> <span style="color: #008080;">thenn</span>
<span style="color: #008080;">else</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">composite</span> <span style="color: #008080004080;">thenbool</span> <span style="color: #000000;">pbnpcomposite</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">n</span> <span style="color: #008080;">end</span> <span style="color: #008080004600;">iftrue</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">base</span><span style="color: #0000FF;">=</span><span style="color: #000000;">2</span> <span style="color: #008080;">to</span> <span style="color: #000000;">n</span> <span style="color: #008080;">do</span>
<span style="color: #004080;">atom</span> <span style="color: #000000;">d</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
Line 88 ⟶ 90:
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">composite</span> <span style="color: #008080;">then</span> <span style="color: #000000;">pbnp</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">n</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">composite</span> <span style="color: #008080;">then</span> <span style="color: #000000;">pbnp</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">n</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
7,794

edits