Primes with digits in nondecreasing order: Difference between revisions

Primes with digits in nondecreasing order (view source)

Revision as of 02:37, 3 April 2021

437 bytes removed , 3 years ago

m

→‎{{header|Phix}}: s=sort(s) is much simpler than finding false in a sequence-comparison of slices!

Petelomax

7,795

edits

Revision as of 00:57, 3 April 2021 (view source) Wherrera (talk \| contribs) (→‎{{header\|Julia}}: add 16) ← Older edit		Revision as of 02:37, 3 April 2021 (view source) Petelomax (talk \| contribs) m (→‎{{header\|Phix}}: s=sort(s) is much simpler than finding false in a sequence-comparison of slices!) Newer edit →
Line 316: =={{header\|Phix}}== <!--<lang Phix>--> <span style="color: #008080;">function</span> <span style="color: #000000;">nd</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">return</span> <span style="color: #~~008080~~000000;">~~not</span> <span style="color: #7060A8;">find~~s</span><span style="color: #0000FF;">~~(</span><span style~~=~~"color: #004600;">true</span><span style="color: #0000FF;">,~~</span><span style="color: #7060A8;">~~sq_lt~~sort</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..$],</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..$-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]))</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">filter</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</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: #7060A8;">get_primes_le</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1000</span><span style="color: #0000FF;">)}),</span><span style="color: #000000;">nd</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;">"%d non-decreasing primes < 1,000: %s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">shorten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">))})</span>