AKS test for primes: Difference between revisions
Content added Content deleted
(LFE version) |
m (Fixed small bug in primerow (still gave correct results, but didn't check the middle element)) |
||
Line 3,692: | Line 3,692: | ||
primerow([], _). |
primerow([], _). |
||
primerow([A,A|_], |
primerow([A,A|_], N) :- A mod N == 0. % end when we've seen half the list. |
||
primerow([A|As], N) :- (A mod N == 0; A == 1), primerow(As, N). |
primerow([A|As], N) :- (A mod N == 0; A == 1), primerow(As, N). |
||