Ormiston triples: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(Added Easylang) |
||
Line 844: | Line 844: | ||
</pre> |
</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight> |
|||
fastfunc isprim num . |
|||
i = 3 |
|||
while i <= sqrt num |
|||
if num mod i = 0 |
|||
return 0 |
|||
. |
|||
i += 2 |
|||
. |
|||
return 1 |
|||
. |
|||
func nextprim n . |
|||
repeat |
|||
n += 2 |
|||
until isprim n = 1 |
|||
. |
|||
return n |
|||
. |
|||
# |
|||
func digs n . |
|||
while n > 0 |
|||
d = n mod 10 |
|||
n = n div 10 |
|||
r += pow 10 d |
|||
. |
|||
return r |
|||
. |
|||
print "Smallest member of the first 25 Ormiston triples:" |
|||
b = 2 |
|||
a = 3 |
|||
repeat |
|||
c = b |
|||
dc = db |
|||
b = a |
|||
db = da |
|||
a = nextprim a |
|||
until a > 1000000000 |
|||
da = digs a |
|||
if da = db and da = dc |
|||
cnt += 1 |
|||
if cnt <= 25 |
|||
write c & " " |
|||
. |
|||
. |
|||
. |
|||
print "Ormiston triples before 1 billion: " & cnt |
|||
</syntaxhighlight> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
Line 860: | Line 909: | ||
<1 billion: 368 |
<1 billion: 368 |
||
</pre> |
</pre> |
||
=={{header|Go}}== |
=={{header|Go}}== |
||
{{trans|Wren}} |
{{trans|Wren}} |