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

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Self-describing-numbers/PicoLisp/self-describing-numbers.l
View file

@ -1,5 +1,4 @@
(de selfDescribing (N)
(not
(find '((D I) (<> D (cnt = N (circ I))))
(setq N (mapcar format (chop N)))
(range 0 (length N)) ) ) )
(fully '((D I) (= D (cnt = N (circ I))))
(setq N (mapcar format (chop N)))
(range 0 (length N)) ) )