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|_], _). % end when we've seen half the list.
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).


Retrieved from "https://rosettacode.org/wiki/AKS_test_for_primes"