Rosetta Code

Miller–Rabin primality test: Difference between revisions

Page Discussion

Miller–Rabin primality test (view source)

Revision as of 00:04, 12 October 2009

5 bytes added ,  14 years ago
→‎{{header|Haskell}}
Line 503:
else do
let pn = pred n
e = uncurry (xs,y:_++) =. second(take 1) . span even $. iterate (`div` 2) $ pn
e = xs ++ [y]
try = return . all (\a -> let c = map (powerMod n a) e in
pn `elem` c || last c == 1)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/107737"