Munchausen numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,004: / Line 1,004: @@
 <pre>1
 </pre>
+=={{header|M2000 Interpreter}}==
+<lang M2000 Interpreter>
+Module Munchausen {
+      Inventory p=0:=0,1:=1
+      for i=2 to 9 {Append p, i:=i**i}
+      Munchausen=lambda p (x)-> {
+            m=0
+            t=x
+            do {
+                  m+=p(x mod 10)
+                  x=x div 10
+            } until x=0
+            =m=t
+      }
+      For i=1 to 5000
+            If Munchausen(i) then print i,
+      Next i
+      Print
+}
+Munchausen
+</lang>
 =={{header|Mathematica}}==