Anonymous user
Template:Prelude/pow mod.a68: Difference between revisions
fix squaring of INT MOD base
(change clude to lude...) |
(fix squaring of INT MOD base) |
||
Line 12:
e:=e OVER 2;
WHILE e /= 0 DO
sq
IF ODD e THEN out := out * sq %* mod FI ;
e:=e OVER 2
|