Descending primes: Difference between revisions
Content added Content deleted
Line 1,237: | Line 1,237: | ||
len = 87</pre> |
len = 87</pre> |
||
=={{header|Prolog}}== |
=={{header|Prolog}}== |
||
for swi-prolog |
|||
<syntaxhighlight lang="prolog"> |
<syntaxhighlight lang="prolog"> |
||
isPrime(2). |
isPrime(2). |
||
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, |