Rare numbers: Difference between revisions
→{{header|Ruby}}
(Added Quackery.) |
|||
Line 4,191:
7th rare number is: 872,546,974,178
8th rare number is: 872,568,754,178
</pre>
=={{header|Ring}}==
<lang ring>
load "stdlib.ring"
see "working..." + nl
see "the first 5 rare numbers are:" + nl
num = 0
for n = 1 to 2042832002
strn = string(n)
nrev = ""
for m = len(strn) to 1 step -1
nrev = nrev + strn[m]
next
nrev = number(nrev)
sum = n + nrev
diff = n - nrev
if diff < 1
loop
ok
sqrtsum = sqrt(sum)
if sqrtsum = floor(sqrtsum)
flagsum = 1
else
flagsum = 0
ok
sqrtdiff = sqrt(diff)
if sqrtdiff = floor(sqrtdiff)
flagdiff = 1
else
flagdiff = 0
ok
if flagsum = 1 and flagdiff = 1
num = num + 1
see "" + num + ": " + n + nl
ok
next
see "done..." + nl
</lang>
{{out}}
<pre>
working...
the first 5 rare numbers are:
1: 65
2: 621770
3: 281089082
4: 2022652202
5: 2042832002
done...
</pre>
| |||