Anonymous user
Miller–Rabin primality test: Difference between revisions
→{{header|Haskell}}
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)
| |||