Munchausen numbers: Difference between revisions
Content added Content deleted
(add PicoLisp) |
|||
Line 896: | Line 896: | ||
3435 |
3435 |
||
</pre> |
</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}}== |
=={{header|Python}}== |