Rare numbers: Difference between revisions
Content deleted Content added
Added Easylang |
|||
Line 1,213: | Line 1,213: | ||
39: 8,650,327,689,541,457 |
39: 8,650,327,689,541,457 |
||
40: 8,650,349,867,341,457</pre> |
40: 8,650,349,867,341,457</pre> |
||
=={{header|EasyLang}}== |
|||
{{trans|Ring}} |
|||
<syntaxhighlight lang=easylang> |
|||
fastfunc next n . |
|||
while 1 = 1 |
|||
n += 1 |
|||
h = n |
|||
nrev = 0 |
|||
while h > 0 |
|||
nrev = nrev * 10 + h mod 10 |
|||
h = h div 10 |
|||
. |
|||
if sqrt (n + nrev) mod 1 = 0 |
|||
if n - nrev >= 1 and sqrt (n - nrev) mod 1 = 0 |
|||
return n |
|||
. |
|||
. |
|||
. |
|||
. |
|||
for cnt to 5 |
|||
n = next n |
|||
print n |
|||
. |
|||
</syntaxhighlight> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
Line 1,303: | Line 1,329: | ||
Elapsed Time: 11275839 ms for length 17 |
Elapsed Time: 11275839 ms for length 17 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |