Anonymous user
Miller–Rabin primality test: Difference between revisions
→{{header|Erlang}}
Line 921:
% Increased number of probabilistic trials from 20 to 100,
% and augmented number of deterministic proving bases.
% Dogwood, January 18, 2014 @
is_prime(1) -> false;
Line 999:
power(B, E) ->
power(B, E, 1).
power(_, 0, Acc) ->
Acc;
power(B, E, Acc) -> power(B, E - 1, B * Acc).▼
power(B, E, Acc) ->
%%%%%%% HAVE UNINTENTIONALLY MERGED FORTRAN PAGE AND UNABE TO REPAIR %%%%%%%%▼
</pre>
| |||