Lychrel numbers: Difference between revisions

</pre>

=={{header|Ring}}==

<lang ring>

load "stdlib.ring"

see "working..." + nl

num = 0

sum = 0

nstep = 0

for n = 1 to 10000

num = n

nstep = 0

while true

nstep++

if nstep = 500

exit

ok

numStr = string(num)

numRev = rev(numstr)

sum = n + number(numRev)

if not palindrome(numStr) and palindrome(string(sum))

exit

ok

end

next

see "Found " + row + " Lychrel numbers" + nl

see "done..." + nl

func rev(numstr)

str = ""

for n = len(numstr) to 1 step -1

str += numStr[n]

next

return str

</lang>

{{out}}

<pre>

working...

Found 2790 Lychrel numbers below 10,000

done...