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

55
Task/Lychrel-numbers/PicoLisp/lychrel-numbers.l Normal file
View file

@ -0,0 +1,55 @@
(de pali? (N)
(let N (chop N)
(= N (reverse N)) ) )
(de lychrel (A)
(let
(R NIL
Lst
(make
(for X A
(let (N X C 500)
(while
(and
(inc 'N (format (flip (chop N))))
(gt0 (dec 'C))
(not (pali? N)) ) )
(and (=0 C) (link X) ) ) ) )
Lst22
(by
'((N)
(let (X N C 3)
(prog1
(bool
(or
(member (+ N (format (flip (chop N)))) R)
(find
'((N) (member N R))
(make
(do C
(link (inc 'X (format (flip (chop X))))) ) ) ) ) )
(do C
(push1
'R
(inc 'N (format (flip (chop N)))) ) ) ) ) )
group
Lst )
P (filter pali? Lst) )
(prinl
"Using n = 1..10000 and limiting each search to 500 reverse-digits-and-adds" )
(prinl
" Number of Lychrel numbers: "
(length (car Lst22)) )
(prin " Lychrel numbers: ")
(println (car Lst22))
(prinl
" Number of Lychrel related: "
(length (cadr Lst22)) )
(prinl
" Number of Lychrel palindroms: "
(length P) )
(prin " Lychrel palindromes: ")
(println P) ) )
(lychrel 10000)
(bye)