Jump to content

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æ}}==
494

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.