AKS test for primes: Difference between revisions

m
Fix loop in Seed7 example
m (Fixed small bug in primerow (still gave correct results, but didn't check the middle element))
m (Fix loop in Seed7 example)
Line 5,097:
ex := expand_x_1(p);
ex[1] +:= 1;
for key idx range 1 to pred(length(ex)) until ex[idx] rem p <> 0 do
noop;
end for;
29

edits