Semiprime: Difference between revisions
→{{header|Phix}}
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
|||
Line 1,281:
Is 158456325028528675187087900701 semiprime?: True
elapsed seconds: 0.0574433</pre>
=={{header|Phix}}==
<lang Phix>function semiprime(integer n)
sequence f = prime_factors(n)
integer l = length(f)
return (l=2 and n=f[1]*f[2]) or (l=1 and n=power(f[1],2))
end function
procedure test(integer start, integer stop)
sequence s = {}
for i=start to stop do
if semiprime(i) then
s &= i
end if
end for
?s
?length(s)
end procedure
test(1,100)
test(1675,1680)</lang>
<pre>
{4,6,9,10,14,15,21,22,25,26,33,34,35,38,39,46,49,51,55,57,58,62,65,69,74,77,82,85,86,87,91,93,94,95}
34
{1678,1679}
2
</pre>
=={{header|PicoLisp}}==
| |||