Anonymous user
Template:Prelude/pow mod.a68: Difference between revisions
m
Template template
m (Template:Preclude/pow mod.a68 moved to Template:Prelude/pow mod.a68: rename clude to lude) |
m (Template template) |
||
(2 intermediate revisions by one other user not shown) | |||
Line 4:
USAGE
MODE POWMODSTRUCT = INT, LONG INT, COMPL, FRAC, MODULAS, MATRIX etc
PR READ "
END COMMENT
Line 12:
e:=e OVER 2;
WHILE e /= 0 DO
sq
IF ODD e THEN out := out * sq %* mod FI ;
e:=e OVER 2
Line 18:
out
)
<noinclude>{{template}}</noinclude>
|