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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 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)