Rosetta Code

Miller–Rabin primality test: Difference between revisions

Page Discussion

Miller–Rabin primality test (view source)

Revision as of 11:46, 23 July 2013

19 bytes removed ,  10 years ago
→‎{{header|Haskell}}: corrected code
(→‎{{header|Haskell}}: corrected code)
Line 1,090:
 
=={{header|Haskell}}==
{{incorrect|Haskell|946 is not prime?}}
{{works with|Haskell|6.10.4}}
* Ideas taken from [http://primes.utm.edu/prove/prove2_3.html Primality proving]
Line 1,121 ⟶ 1,120:
 
isMillerRabinPrime :: Integer -> IO Bool
isMillerRabinPrime n | even n `elem` primesTo100 = return True(2 == n)
| n `elem` primesTo100 = return True
| otherwise = do
let pn = pred n
e = uncurry (++) . second(take 1) . span even . iterate (`div` 2) $ pn
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/107826"