Steady squares: Difference between revisions
→{{header|PROMAL}}: tweak: reduce the number of repeated additions
(→{{header|PROMAL}}: Added output) |
(→{{header|PROMAL}}: tweak: reduce the number of repeated additions) |
||
Line 1,057:
BEGIN
result = 0
FOR i = 1 TO multiplier / 2
result = ( result + value + value ) % modulus
IF multiplier % 2 = 1
result = ( result + value ) % modulus
RETURN result
| |||