Semiprime: Difference between revisions
Content added Content deleted
m (→{{Header|Factor}}: update to Factor 0.98) |
m (→{{Header|Factor}}: add whitespace) |
||
Line 806: | Line 806: | ||
{{works with|Factor|0.98}} |
{{works with|Factor|0.98}} |
||
<lang>USING: kernel math.combinatorics math.primes.factors sequences ; |
<lang>USING: kernel math.combinatorics math.primes.factors sequences ; |
||
: semiprime? ( n -- ? ) |
: semiprime? ( n -- ? ) |
||
[ factors 2 <combinations> [ product ] map ] |
[ factors 2 <combinations> [ product ] map ] |