Miller–Rabin primality test: Difference between revisions
Content added Content deleted
Line 503:
else do
let pn = pred n
e = xs ++ [y]
try = return . all (\a -> let c = map (powerMod n a) e in
pn `elem` c || last c == 1)
|