10001th prime: Difference between revisions
Content added Content deleted
| Line 502: | Line 502: | ||
=={{header|Prolog}}== |
=={{header|Prolog}}== |
||
for swi-prolog |
for swi-prolog |
||
<syntaxhighlight lang="prolog">isPrime(2). |
<syntaxhighlight lang="prolog">isPrime(2). % prime generator |
||
isPrime(N):- |
isPrime(N):- |
||
between(3, inf, N), |
between(3, inf, N), |
||
N /\ 1 > 0, |
N /\ 1 > 0, % odd |
||
M is floor(sqrt(N)) - 1, % reverse 2*I+1 |
M is floor(sqrt(N)) - 1, % reverse 2*I+1 |
||
Max is M div 2, |
Max is M div 2, |
||