aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Pernicious-numbers/Factor/pernicious-numbers.factor Normal file
View file

@ -0,0 +1,6 @@
USING: lists lists.lazy math.bits math.primes math.ranges ;
: pernicious? ( n -- ? ) make-bits [ t = ] count prime? ;
0 lfrom [ pernicious? ] lfilter 25 swap ltake list>array . ! print first 25 pernicious numbers
888,888,877 888,888,888 [a,b] [ pernicious? ] filter . ! print pernicious numbers in range