Munchausen numbers: Difference between revisions
→{{header|langur}}
Not a robot (talk | contribs) (Add Draco) |
Langurmonkey (talk | contribs) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 1,763:
{{trans|C#}}
<syntaxhighlight lang="langur"># sum power of digits
val .spod =
# Munchausen
writeln "Answers: ", filter
</syntaxhighlight>
{{out}}
Line 2,738 ⟶ 2,739:
<pre>1 (munchausen)
3435 (munchausen)</pre>
=={{header|SETL}}==
<syntaxhighlight lang="setl">program munchausen_numbers;
loop for n in [1..5000] | munchausen n do
print(n);
end loop;
op munchausen(n);
m := n;
loop while m>0 do
d := m mod 10;
m div:= 10;
sum +:= d ** d;
end loop;
return sum = n;
end op;
end program;</syntaxhighlight>
{{out}}
<pre>1
3435</pre>
=={{header|Sidef}}==
| |||