Long multiplication: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 60}}: Same bug fix as before. I repeat myself.) |
(→{{header|ALGOL 60}}: Better loop style. Note that the code was translated from ATS.) |
||
| Line 674: | Line 674: | ||
=={{header|ALGOL 60}}== |
=={{header|ALGOL 60}}== |
||
{{works with|GNU MARST|2.7}} |
{{works with|GNU MARST|2.7}} |
||
{{trans|ATS}} |
|||
<syntaxhighlight lang="algol60"> |
<syntaxhighlight lang="algol60"> |
||
| Line 719: | Line 720: | ||
comment Skip leading zeros; |
comment Skip leading zeros; |
||
i := 0; |
|||
for i := |
for i := i while i < m - 1 & u[i] = 0 do |
||
i := i + 1; |
i := i + 1; |
||