Neighbour primes: Difference between revisions
Content added Content deleted
(Added Easylang) |
|||
Line 549: | Line 549: | ||
</pre> |
</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight> |
|||
fastfunc isprim num . |
|||
i = 2 |
|||
while i <= sqrt num |
|||
if num mod i = 0 |
|||
return 0 |
|||
. |
|||
i += 1 |
|||
. |
|||
return 1 |
|||
. |
|||
fastfunc nextprim prim . |
|||
repeat |
|||
prim += 1 |
|||
until isprim prim = 1 |
|||
. |
|||
return prim |
|||
. |
|||
q = 2 |
|||
repeat |
|||
p = q |
|||
until p >= 500 |
|||
q = nextprim q |
|||
if isprim (2 + p * q) = 1 |
|||
write p & " " |
|||
. |
|||
. |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
3 5 7 13 19 67 149 179 229 239 241 269 277 307 313 397 401 419 439 487 |
|||
</pre> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
Line 580: | Line 614: | ||
Real: 00:00:00.029 |
Real: 00:00:00.029 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
{{works with|Factor|0.99 2021-02-05}} |
{{works with|Factor|0.99 2021-02-05}} |