10001th prime: Difference between revisions
Content added Content deleted
Lpicouleau (talk | contribs) (Added an erlang implementation) |
(→bc: add) |
||
Line 6: | Line 6: | ||
=={{header|11l}}== |
=={{header|11l}}== |
||
<syntaxhighlight lang="11l">V k = 10001 |
<syntaxhighlight lang="11l">V k = 10001 |
||
V n = k * 17 |
V n = k * 17 |
||
Line 55: | Line 54: | ||
=={{header|Arturo}}== |
=={{header|Arturo}}== |
||
<syntaxhighlight lang="rebol">primes: select 2..110000 => prime? |
<syntaxhighlight lang="rebol">primes: select 2..110000 => prime? |
||
print primes\[10000]</syntaxhighlight> |
print primes\[10000]</syntaxhighlight> |
||
Line 195: | Line 193: | ||
end</syntaxhighlight> |
end</syntaxhighlight> |
||
=={{header|bc}}== |
|||
<syntaxhighlight lang="bc">a[0] = 2 |
|||
a[o = 1] = 3 |
|||
for (n = 5; o < 10000; n += 2) { |
|||
for (i = 1; n % (p = a[i]) != 0; ++i) { |
|||
if (p * p > n) { |
|||
a[++o] = n |
|||
break |
|||
} |
|||
} |
|||
} |
|||
a[o]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>104743</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |