Munchausen numbers: Difference between revisions
Add LDPL
m (→Alternative: simplified - cached powers no real help) |
(Add LDPL) |
||
Line 1,697:
{{out}}
<pre>Answers: [1, 3435]</pre>
=={{header|LDPL}}==
<syntaxhighlight lang="ldpl">data:
d is number
i is number
n is number
sum is number
procedure:
for i from 1 to 5001 step 1 do
store 0 in sum
store i in n
while n is greater than 0 do
modulo n by 10 in d
raise d to d in d
add sum and d in sum
divide n by 10 in n
floor n
repeat
if sum is equal to i then
display i lf
end if
repeat
</syntaxhighlight>
{{out}}
<pre>
1
3435
</pre>
=={{header|Lua}}==
| |||