10001th prime: Difference between revisions
→bc: add
Lpicouleau (talk | contribs) (Added an erlang implementation) |
(→bc: add) |
||
Line 6:
=={{header|11l}}==
<syntaxhighlight lang="11l">V k = 10001
V n = k * 17
Line 55 ⟶ 54:
=={{header|Arturo}}==
<syntaxhighlight lang="rebol">primes: select 2..110000 => prime?
print primes\[10000]</syntaxhighlight>
Line 195 ⟶ 193:
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}}==
| |||