Long multiplication: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 60}}: Better loop style. Note that the code was translated from ATS.) |
(→{{header|ALGOL 60}}: Maybe this is easier for people unfamiliar with the language to understand.) |
||
Line 721: | Line 721: | ||
comment Skip leading zeros; |
comment Skip leading zeros; |
||
i := 0; |
i := 0; |
||
for |
for j := i while j < m - 1 & u[j] = 0 do |
||
i := i + 1; |
i := i + 1; |
||