Pernicious numbers: Difference between revisions
Content added Content deleted
m (→{{header|Factor}}: use bit-count; reduce stack shuffling) |
m (→{{header|Factor}}: show all vocabularies) |
||
| Line 804: | Line 804: | ||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
<lang factor>USING: |
<lang factor>USING: lists lists.lazy math.bitwise math.primes math.ranges |
||
prettyprint sequences ; |
|||
: pernicious? ( n -- ? ) bit-count prime? ; |
: pernicious? ( n -- ? ) bit-count prime? ; |
||