Munchausen numbers: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 68}}: Fixed buggette) |
Walterpachl (talk | contribs) (add REXX) |
||
Line 286: | Line 286: | ||
<pre>1 |
<pre>1 |
||
3435</pre> |
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}}== |
=={{header|Scala}}== |