Digit fifth powers: Difference between revisions
added AWK
Not a robot (talk | contribs) (Add CLU) |
Catskill549 (talk | contribs) (added AWK) |
||
Line 286:
{{out}}
<pre>443839</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f DIGIT_FIFTH_POWERS.AWK
BEGIN {
for (p=3; p<=6; p++) {
limit = 9^p*p
sum = 0
for (i=2; i<=limit; i++) {
if (i == main(i)) {
printf("%6d\n",i)
sum += i
}
}
printf("%6d power %d sum\n\n",sum,p)
}
exit(0)
}
function main(n, i,total) {
for (i=1; i<=length(n); i++) {
total += substr(n,i,1) ^ p
}
return(total)
}
</lang>
{{out}}
<pre>
153
370
371
407
1301 power 3 sum
1634
8208
9474
19316 power 4 sum
4150
4151
54748
92727
93084
194979
443839 power 5 sum
548834
548834 power 6 sum
</pre>
=={{header|BASIC}}==
| |||