Magnanimous numbers: Difference between revisions
m
→{{header|PicoLisp}}
(add PicoLisp) |
|||
Line 1,197:
(setq P (* P 10)) ) ) ) )
(de ismagna (N)
(
(fully isprime (numbers N)) ) )
(let (C 0 N 0 Lst)
(setq Lst
(make
(
(when (ismagna N)
(link N)
|