RosettaCodeData/Task/Semiprime/Factor/semiprime-1.factor

USING: kernel math.combinatorics math.primes.factors sequences ;

: semiprime? ( n -- ? )
    [ factors 2 <combinations> [ product ] map ]
    [ [ = ] curry ] bi any? ;