Munchausen numbers: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
(Frink) |
||
| Line 1,340: | Line 1,340: | ||
3435 |
3435 |
||
438579088</pre> |
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æ}}== |
=={{header|Fōrmulæ}}== |
||