Pernicious numbers: Difference between revisions

m
→‎{{header|Factor}}: show all vocabularies
m (→‎{{header|Factor}}: use bit-count; reduce stack shuffling)
m (→‎{{header|Factor}}: show all vocabularies)
Line 804:
 
=={{header|Factor}}==
<lang factor>USING: prettyprint lists lists.lazy math.bitwise math.primes math.ranges ;
prettyprint sequences ;
 
: pernicious? ( n -- ? ) bit-count prime? ;
1,808

edits