Digit fifth powers: Difference between revisions
added Arturo
(→{{header|AppleScript}}: Added recursive version.) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 454:
4150 + 4151 + 54748 + 92727 + 93084 + 194979 = 443839
5.64240140138E+11 = 5.64240140138E+11"</syntaxhighlight>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">fifthDigitSum?: function [n]->
n = sum map digits n 'd -> d^5
print dec sum select 1..1000000 => fifthDigitSum?</syntaxhighlight>
{{out}}
<pre>443839</pre>
=={{header|AWK}}==
| |||