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