Miller–Rabin primality test: Difference between revisions

Content added Content deleted

Inline

@@ Line 921: / Line 921: @@
 % Increased number of probabilistic trials from 20 to 100,
 %    and augmented number of deterministic proving bases.
-% Dogwood, January 18, 2014 @ 10:52am PST.
+% Dogwood, January 18, 2014 @ 11:45am PST.
 is_prime(1) -> false;
@@ Line 999: / Line 999: @@
-power(B, E) -> power(B, E, 1).
+power(B, E) ->
+    power(B, E, 1).
-power(_, 0, Acc) -> Acc.
+power(_, 0, Acc) ->
+    Acc;
-power(B, E, Acc) -> power(B, E - 1, B * Acc).
+power(B, E, Acc) ->
+    power(B, E - 1, B * Acc).
-%%%%%%% HAVE UNINTENTIONALLY MERGED FORTRAN PAGE AND UNABE TO REPAIR %%%%%%%%
+%%%%%%% HAVE UNINTENTIONALLY MERGED FORTRAN PAGE AND UNABLE TO REPAIR %%%%%%%%
 </pre>