Miller–Rabin primality test: Difference between revisions

Content added Content deleted
No edit summary
Line 1,136: Line 1,136:
while (d%2 ~= 0, s+:=1, d/:=2)
while (d%2 ~= 0, s+:=1, d/:=2)


every (1 to k, x := ((2+?(n-2))^d)%n) do {
every (1 to k, x := ((1+?(n-2))^d)%n) do {
if x = (1 | (n-1)) then next
if x = (1 | (n-1)) then next
every (1 to s-1, x := (x^2)%n) do {
every (1 to s-1, x := (x^2)%n) do {