Descending primes: Difference between revisions
m
→{{header|Prolog}}
Line 1,237:
len = 87</pre>
=={{header|Prolog}}==
for swi-prolog
<syntaxhighlight lang="prolog">
isPrime(2).
isPrime(N):-
between(3, inf, N),
N /\ 1 > 0,
M is floor(sqrt(N)) - 1, % reverse 2*I+1
Max is M div 2,
| |||