Revision as of 08:30, 11 October 2017 (view source) Mihailp (talk \| contribs) (add PicoLisp) ← Older edit		Revision as of 10:05, 11 October 2017 (view source) Mihailp (talk \| contribs) m (→‎{{header\|PicoLisp}}) Newer edit →
Line 898: =={{header\|PicoLisp}}== <lang PicoLisp>(for XN 5000 (and (= XN (sum '((N) (** N N)) (mapcar format (chop XN)) ) ) (println XN) ) )</lang> {{out}} <pre>

Munchausen numbers: Difference between revisions

Munchausen numbers (view source)