Long multiplication: Difference between revisions
m
→{{header|PL/I}}: Added syntax highlighting
m (→{{header|PL/M}}: Added syntax highlighting) |
m (→{{header|PL/I}}: Added syntax highlighting) |
||
Line 4,356:
=={{header|PL/I}}==
<lang
multiply: procedure (a, b, c);
declare (a, b, c) (*) fixed decimal (1);
Line 4,404:
end complement;</lang>
Calling sequence:
<lang
a(60) = 1;
do i = 1 to 64; /* Generate 2**64 */
|