Anonymous user
Semiprime: Difference between revisions
Added zkl
(Updated D entry) |
(Added zkl) |
||
Line 825:
1679 is ... a semiprime
1680 is ... NOT a semiprime
</pre>
=={{header|zkl}}==
{{trans|C}}
<lang zkl>fcn semiprime(n){
reg f = 0;
p:=2; while(f < 2 and p*p <= n){
while(0 == n % p){ n /= p; f+=1; }
p+=1;
}
return(f + (n > 1) == 2);
}</lang>
{{out}}
<pre>
[1675 .. 1681].filter(semiprime).println();
L(1678,1679,1681)
</pre>
| |||