Semiprime: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(→{{header|Factor}}: Use a better method for finding semiprimes; prune unused vocabs; tweak output code) |
||
| Line 909: | Line 909: | ||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.98}} |
{{works with|Factor|0.98}} |
||
<lang>USING: |
<lang>USING: io kernel math.primes.factors sequences ; |
||
: semiprime? ( n -- ? ) |
: semiprime? ( n -- ? ) factors length 2 = ;</lang> |
||
[ factors 2 <combinations> [ product ] map ] |
|||
[ [ = ] curry ] bi any? ;</lang> |
|||
Displaying the semiprimes under 100: |
Displaying the semiprimes under 100: |
||
<lang>100 <iota> [ semiprime? ] filter [ |
<lang>100 <iota> [ semiprime? ] filter [ bl ] [ pprint ] interleave nl</lang> |
||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||