Munchausen numbers: Difference between revisions
add PicoLisp
(add PicoLisp) |
|||
Line 896:
3435
</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>(for X 5000
(and
(=
X
(sum
'((N) (** N N))
(mapcar format (chop X)) ) )
(println X) ) )</lang>
{{out}}
<pre>
1
3435</pre>
=={{header|Python}}==
|