Long multiplication: Difference between revisions
→{{header|ALGOL 60}}: Better loop style. Note that the code was translated from ATS.
(→{{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:
=={{header|ALGOL 60}}==
{{works with|GNU MARST|2.7}}
{{trans|ATS}}
<syntaxhighlight lang="algol60">
Line 719 ⟶ 720:
comment Skip leading zeros;
i := 0;
for i :=
i := i + 1;
|