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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Pernicious-numbers/PicoLisp/pernicious-numbers-1.l Normal file
View file

@ -0,0 +1,2 @@
(de pernicious? (N)
(prime? (cnt = (chop (bin N)) '("1" .))) )

8
Task/Pernicious-numbers/PicoLisp/pernicious-numbers-2.l Normal file
View file

@ -0,0 +1,8 @@
: (let N 0
(do 25
(until (pernicious? (inc 'N)))
(printsp N) ) )
3 5 6 7 9 10 11 12 13 14 17 18 19 20 21 22 24 25 26 28 31 33 34 35 36 -> 36
: (filter pernicious? (range 888888877 888888888))
-> (888888877 888888878 888888880 888888883 888888885 888888886)