Munchausen numbers: Difference between revisions
add REXX
(→{{header|ALGOL 68}}: Fixed buggette) |
Walterpachl (talk | contribs) (add REXX) |
||
Line 286:
<pre>1
3435</pre>
=={{header|REXX}}==
<lang rexx>Do n=0 To 10000
If n=m(n) Then
Say n
End
Exit
m: Parse Arg z
res=0
Do While z>''
Parse Var z c +1 z
res=res+c**c
End
Return res</lang>
{{out}}
<pre>D:\mau>rexx munch
1
3435
</pre>
=={{header|Scala}}==
|