Talk:Miller–Rabin primality test: Difference between revisions

power(X, N) ->

power(X, N, 1).

power(X, N, Acc) ->

if

Js = lists:seq(0, S),

lists:map(fun(J) -> pow_mod(A, power:power(2, J)*D, N) end, Js).

 

pow_mod(B, E, M) ->