2020-02-17 23:21:07 -08:00
|
|
|
USING: lists lists.lazy math.bitwise math.primes math.ranges
|
|
|
|
|
prettyprint sequences ;
|
2018-06-22 20:57:24 +00:00
|
|
|
|
2020-02-17 23:21:07 -08:00
|
|
|
: pernicious? ( n -- ? ) bit-count prime? ;
|
2018-06-22 20:57:24 +00:00
|
|
|
|
2020-02-17 23:21:07 -08:00
|
|
|
25 0 lfrom [ pernicious? ] lfilter ltake list>array . ! print first 25 pernicious numbers
|
|
|
|
|
888,888,877 888,888,888 [a,b] [ pernicious? ] filter . ! print pernicious numbers in range
|
