Rosetta Code

Digit fifth powers: Difference between revisions

Page Discussion

Digit fifth powers (view source)

Revision as of 17:30, 5 November 2021

17 bytes added ,  2 years ago
m
→‎{{header|Ring}}: added realistic limits
m (→‎{{header|Ring}}: added realistic limits)
Line 54:
 
=={{header|Ring}}==
<lang ring>? "working..."
see "working..." + nl
 
sumEnd = 0
sumList = []""
 
limitStart = 1000▼
pow5 = []
limitEnd = 199999▼
for i = 1 to 9
add(pow5, pow(i, 5))
next▼
 
▲limitStart = 10002
▲limitEnd = 1999996 * pow5[9]
 
for n = limitStart to limitEnd
sum = 0
nStrm = string(n)
forwhile m => 1 to len(nStr)0
sumd = summ +% pow(number(nStr[m]),5)10
if d > 0 sum += pow5[d] ok
next
m = unsigned(m, 10, "/")
▲ nextend
if sum = n
add(sumList, += "" + n) + " + "
sumEnd += n
ok
next
 
see? "The sum of all the numbers that can be written as the sum of fifth powers of their digits:" + nl
for? n =substr(sumList, 1 to, len(sumList) -1 2) + "= " + sumEnd
see? "done..." + nl</lang>▼
see "" + sumList[n] + " + "
▲next
see "" + sumList[n] + " = " + sumEnd + nl
▲see "done..." + nl
</lang>
{{out}}
<pre>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/317085"