Munchausen numbers: Difference between revisions
Frink
(Added XPL0 example.) |
(Frink) |
||
Line 1,340:
3435
438579088</pre>
=={{header|Frink}}==
<lang frink>isMunchausen = { |x|
sum = 0
for d = integerDigits[x]
sum = sum + d^d
return sum == x
}
println[select[1 to 5000, isMunchausen]]</lang>
{{out}}
<pre>
[1, 3435]
</pre>
=={{header|Fōrmulæ}}==
| |||