Long multiplication: Difference between revisions
→{{header|ALGOL 60}}: Bug fix in BCD printing.
(Added ALGOL 60 before →{{header|ALGOL 68}}) |
(→{{header|ALGOL 60}}: Bug fix in BCD printing.) |
||
Line 719:
comment Skip leading zeros;
▲ for i := 0, i + 1 while i < m - 1 & u[i] = 0 do
skipzero: ;
Line 761 ⟶ 760:
{{out}}
<pre>$ marst long_mult_task.algol60 > algol60-code.c && cc algol60-code.c -lalgol && ./a.out
u = 18 446 744 073 709 551 616
v = 18 446 744 073 709 551 616
u × v = 340 282 366 920 938 463 463 374 607 431 768 211 456</pre>
| |||