Anonymous user
Miller–Rabin primality test: Difference between revisions
m
→{{header|D}}
(→{{header|Common Lisp}}: added D) |
m (→{{header|D}}) |
||
Line 508:
if (modpow(a, d, n) == 1)
return false;
foreach (i; 0 .. s + 1) {
if (modpow(a, 2^^i * d, n) == n - 1)
return false;
}
return true;
}
foreach (
if (isComposite(uniform(2, n)))
return false;
| |||