Anonymous user
Miller–Rabin primality test: Difference between revisions
→{{header|Haskell}}: typo
(→{{header|Haskell}}: ... and wrong output) |
(→{{header|Haskell}}: typo) |
||
Line 1,113:
witns x y = do
g <- newStdGen
let r = [9080191, 4759123141, 2152302898747,
fs = [[31,73],[2,7,61],[2,3,5,7,11],[2,3,5,7,11,13],[2,3,5,7,11,13,17]]
if y >= 341550071728321
| |||