Own digits power sum: Difference between revisions
added Arturo
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 273:
Considered 73359 digit combinations
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">loop 3..8 'nofDigits ->
loop (10 ^ nofDigits-1)..dec 10^nofDigits 'n ->
if n = sum map digits n => [& ^ nofDigits] ->
print n</syntaxhighlight>
{{out}}
<pre>153
370
371
407
1634
8208
9474
54748
92727
93084
548834
1741725
4210818
9800817
9926315
24678050
24678051
88593477</pre>
=={{header|C}}==
| |||