Long multiplication: Difference between revisions

Content added Content deleted
(→‎{{header|ALGOL 60}}: Bug fix in BCD printing.)
(→‎{{header|ALGOL 60}}: Write a loop more readably.)
Line 719: Line 719:


comment Skip leading zeros;
comment Skip leading zeros;
for i := -1, i + 1 while i < m - 1 & u[i] = 0 do
for i := 0, i while i < m - 1 & u[i] = 0 do
skipzero: ;
i := i + 1;


comment Print the digits, and separators;
comment Print the digits, and separators;