Miller–Rabin primality test: Difference between revisions
Content added Content deleted
Line 921: | Line 921: | ||
% Increased number of probabilistic trials from 20 to 100, |
% Increased number of probabilistic trials from 20 to 100, |
||
% and augmented number of deterministic proving bases. |
% and augmented number of deterministic proving bases. |
||
% |
% Modified, January 18, 2014 @ 11:45am PST. |
||
is_prime(1) -> false; |
is_prime(1) -> false; |
||
Line 1,006: | Line 1,006: | ||
power(B, E, Acc) -> |
power(B, E, Acc) -> |
||
power(B, E - 1, B * Acc).</lang> |
power(B, E - 1, B * Acc).</lang> |
||
=={{header|Fortran}}== |
=={{header|Fortran}}== |