Anonymous user
Miller–Rabin primality test: Difference between revisions
→{{header|Mathematica}}
Line 869:
=={{header|Mathematica}}==
<lang Mathematica>MillerRabin[n_,
Do[
a=RandomInteger[{2,n-1}]; x=Mod[Power[a,d] ,n];
Line 876:
If[ x != n-1, test=False ];
];
,{
Print[test] ]
| |||