Long multiplication: Difference between revisions

=={{header|EasyLang}}==

<syntaxhighlight lang="easylang">

proc mult a$ b$ . r$ .

r$ = ""

a[] = number strchars a$

b[] = number strchars b$

len r[] len a[] + len b[]

for ib range0 len b[]

b = b[len b[] - ib]

tmp = 0

for ia range0 len a[]

tmp += r[ia + ib + 1]

tmp += b * a[len a[] - ia]

r[ia + ib + 1] = tmp mod 10

tmp = tmp div 10

.

ir = ib + len a[] + 1

while tmp <> 0

tmp += r[ir]

r[ir] = tmp mod 10

tmp = tmp div 10

ir += 1

.

.

for i = len r[] downto 1

if r$ <> "" or r[i] <> 0 or i = 1

r$ &= r[i]

.

.

.

call mult "18446744073709551616" "18446744073709551616" r$

print r$

</syntaxhighlight>