Jump to content

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 := -1, i while i < m - 1 & u[i] = 0 do
i := i + 1;
 
1,448

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.