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

4 lines
107 B
Factor
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
USING: io kernel math.primes.factors prettyprint sequences ;
: semiprime? ( n -- ? ) factors length 2 = ;