Munchausen numbers: Difference between revisions
Content added Content deleted
Line 1,024: | Line 1,024: | ||
} |
} |
||
Munchausen |
Munchausen |
||
</lang> |
|||
Using Array instead of Inventory |
|||
<lang M2000 Interpreter> |
|||
Module Münchhausen { |
|||
Dim p(0 to 9) |
|||
p(0)=0, 1 |
|||
for i=2 to 9 {p(i)=i**i} |
|||
Münchhausen=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 Münchhausen(i) then print i, |
|||
Next i |
|||
Print |
|||
} |
|||
Münchhausen |
|||
</lang> |
</lang> |
||
{{out}} |
{{out}} |