Find squares n where n+1 is prime: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added an alternative) |
|||
Line 156: | Line 156: | ||
{1,4,16,36,100,196,256,400,576,676} |
{1,4,16,36,100,196,256,400,576,676} |
||
</pre> |
</pre> |
||
Alternative, same output: |
|||
<!--<lang Phix>(phixonline)--> |
|||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span> |
|||
<span style="color: #008080;">function</span> <span style="color: #000000;">sq</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">return</span> <span style="color: #004080;">integer</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sqrt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">))</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span> |
|||
<span style="color: #7060A8;">pp</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">filter</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sq_sub</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;">1</span><span style="color: #0000FF;">),</span><span style="color: #000000;">sq</span><span style="color: #0000FF;">))</span> |
|||
<!--</lang>--> |
|||
The (cheekily humorous) squares-of-[non-]integers result of Raku can be replicated with |
The (cheekily humorous) squares-of-[non-]integers result of Raku can be replicated with |
||
<!--<lang Phix>(phixonline)--> |
<!--<lang Phix>(phixonline)--> |