Anonymous user
Miller–Rabin primality test: Difference between revisions
→{{header|Haskell}}
Line 499:
isMillerRabinPrime :: Integer -> IO Bool
isMillerRabinPrime n | n `elem` primesTo100 = return True
| otherwise = do
let pn = pred n
e = uncurry (++) . second(take 1) . span even . iterate (`div` 2) $ pn
| |||