Rare numbers: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 4,191: | Line 4,191: | ||
7th rare number is: 872,546,974,178 |
7th rare number is: 872,546,974,178 |
||
8th rare number is: 872,568,754,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> |
</pre> |
||