Semiprime: Difference between revisions
Content added Content deleted
m (changed a semicolon to a colon in the preamble.) |
(Added Quackery.) |
||
Line 1,729: | Line 1,729: | ||
[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] |
[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] |
||
>>> </lang> |
>>> </lang> |
||
=={{header|Quackery}}== |
|||
<code>factors</code> is defined at [http://rosettacode.org/wiki/Factors_of_an_integer#Quackery Factors of an integer]. |
|||
<lang Quackery> [ factors size dup 3 4 clamp = ] is semiprime ( n --> b ) |
|||
say "Semiprimes less than 100:" cr |
|||
100 times [ i^ semiprime if [ i^ echo sp ] ]</lang> |
|||
{{out}} |
|||
<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> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |