Talk:Miller–Rabin primality test: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 29: | Line 29: | ||
power(X, N) -> |
power(X, N) -> |
||
power(X, N, 1). |
power(X, N, 1). |
||
power(X, N, Acc) -> |
power(X, N, Acc) -> |
||
if |
if |
||
Line 39: | Line 38: | ||
Js = lists:seq(0, S), |
Js = lists:seq(0, S), |
||
lists:map(fun(J) -> pow_mod(A, power:power(2, J)*D, N) end, Js). |
lists:map(fun(J) -> pow_mod(A, power:power(2, J)*D, N) end, Js). |
||
pow_mod(B, E, M) -> |
pow_mod(B, E, M) -> |