AKS test for primes: Difference between revisions
Content added Content deleted
Line 3,574: | Line 3,574: | ||
primerow([], _). |
primerow([], _). |
||
primerow([A,A|_], _). % end when we've seen half the list. |
|||
primerow([A|As], N) :- (A == 1; A mod N == 0), primerow(As, N). |
primerow([A|As], N) :- (A == 1; A mod N == 0), primerow(As, N). |
||