Anonymous user
Munchausen numbers: Difference between revisions
→{{header|M2000 Interpreter}}
Line 1,024:
}
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>
{{out}}
| |||