Narcissistic decimal number: Difference between revisions
add PicoLisp
(added faster FunL version) |
(add PicoLisp) |
||
Line 662:
24 9800817
25 9926315</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>(let (C 25 N 0 L 1)
(loop
(when
(=
N
(sum ** (mapcar format (chop N)) (need L L)) )
(println N)
(dec 'C) )
(inc 'N)
(setq L (length N))
(T (=0 C) 'done) ) )
(bye)</lang>
=={{header|Python}}==
| |||