Munchausen numbers: Difference between revisions
Content added Content deleted
m (→Alternative: simplified - cached powers no real help) |
(Add LDPL) |
||
Line 1,697: | Line 1,697: | ||
{{out}} |
{{out}} |
||
<pre>Answers: [1, 3435]</pre> |
<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}}== |
=={{header|Lua}}== |