Long multiplication: Difference between revisions
Content added Content deleted
(Added ALGOL 60 before →{{header|ALGOL 68}}) |
(→{{header|ALGOL 60}}: Bug fix in BCD printing.) |
||
Line 719: | Line 719: | ||
comment Skip leading zeros; |
comment Skip leading zeros; |
||
⚫ | |||
i := 0; |
|||
⚫ | |||
skipzero: ; |
skipzero: ; |
||
Line 761: | Line 760: | ||
{{out}} |
{{out}} |
||
<pre>$ marst long_mult_task.algol60 > algol60-code.c && cc algol60-code.c -lalgol && ./a.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 |
|||
u = 8 446 744 073 709 551 616 |
|||
v = 18 446 744 073 709 551 616 |
|||
v = 8 446 744 073 709 551 616 |
|||
u × v = 340 282 366 920 938 463 463 374 607 431 768 211 456</pre> |
u × v = 340 282 366 920 938 463 463 374 607 431 768 211 456</pre> |
||