Semiprime: Difference between revisions

Content added Content deleted
Line 2,044: Line 2,044:
=={{header|Quackery}}==
=={{header|Quackery}}==


<code>factors</code> is defined at [http://rosettacode.org/wiki/Factors_of_an_integer#Quackery Factors of an integer].
<code>primefactors</code> is defined at [http://rosettacode.org/wiki/Prime_decomposition#Quackery Prime decomposition].


<syntaxhighlight lang="quackery"> [ factors size dup 3 4 clamp = ] is semiprime ( n --> b )
<syntaxhighlight lang="quackery"> [ primefactors size 2 = ] is semiprime ( n --> b )


say "Semiprimes less than 100:" cr
say "Semiprimes less than 100:" cr
Line 2,054: Line 2,054:


<pre>Semiprimes less than 100:
<pre>Semiprimes less than 100:
4 6 8 9 10 14 15 21 22 25 26 27 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95 </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</pre>


=={{header|Racket}}==
=={{header|Racket}}==
Retrieved from "https://rosettacode.org/wiki/Semiprime"