Munchausen numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 898: / Line 898: @@
 =={{header|PicoLisp}}==
-<lang PicoLisp>(for X 5000
+<lang PicoLisp>(for N 5000
    (and
       (=
-         X
+         N
          (sum
             '((N) (** N N))
-            (mapcar format (chop X)) ) )
+            (mapcar format (chop N)) ) )
-      (println X) ) )</lang>
+      (println N) ) )</lang>
 {{out}}
 <pre>