Rosetta Code

Sphenic numbers: Difference between revisions

Page Discussion

Sphenic numbers (view source)

Revision as of 10:56, 19 January 2023

172 bytes removed ,  1 year ago
m
→‎{{header|Phix}}: minor tidy
(Added AppleScript.)
m (→‎{{header|Phix}}: minor tidy)
Line 267:
<!--<syntaxhighlight lang="phix">(phixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
<span style="color: #008080;">constantfunction</span> <span style="color: #000000;">limitget_sphenic</span> <span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">1000000limit</span><span style="color: #0000FF;">,)</span>
<span style="color: #000000004080;">primessequence</span> <span style="color: #0000FF000000;">=sphenic</span> <span style="color: #7060A8;">get_primes_le</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">limit</span><span style="color: #0000FF;">/</span><span style="color: #000000;">6</span><span style="color: #0000FF;">)){},</span>
<span style="color: #000000;">pcprimes</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">lengthget_primes_le</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">primeslimit</span><span style="color: #0000FF;">/</span><span style="color: #000000;">6</span><span style="color: #0000FF;">))</span>
<span style="color: #7060A8004080;">printfinteger</span> <span style="color: #0000FF000000;">(pc</span> <span style="color: #0000000000FF;">1=</span> <span style="color: #0000FF7060A8;">,length</span><span style="color: #0080000000FF;">"Sphenic(</span><span numbers less than 1,000style="color:\n #000000;">primes</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">function</span> <span style="color: #000000;">get_sphenic_le</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">limit</span><span style="color: #0000FF;">)</span>▼
<span style="color: #004080;">sequence</span> <span style="color: #000000;">sphenic</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">pc</span><span style="color: #0000FF;">-</span><span style="color: #000000;">2</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">i</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">pc</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
Line 287 ⟶ 285:
<span style="color: #008080;">return</span> <span style="color: #000000;">sphenic</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">sphenic</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get_sphenic_leget_sphenic</span><span style="color: #0000FF;">(</span><span style="color: #000000;">limit1000000</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #0080807060A8;">functionprintf</span> <span style="color: #0000000000FF;">get_sphenic_le(</span><span style="color: #0000FF000000;">(1</span><span style="color: #0040800000FF;">integer,</span> <span style="color: #000000008000;">limit"Sphenic numbers less than 1,000:\n"</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;">"%s\n"</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;">sphenic</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&lt;"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1000</span><span style="color: #0000FF;">),</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">15</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: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Sphenic triplets less than 10,000:\n"</span><span style="color: #0000FF;">)</span>
Petelomax
7,822

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/335693"