Anonymous user
Miller–Rabin primality test: Difference between revisions
→{{header|Haskell}}
Line 496:
if y >= 341550071728321
then return $ take x $ randomRs (2,y-1) g
else return $
isMillerRabinPrime :: Integer -> IO Bool
| |||