Long multiplication: Difference between revisions
→{{header|EasyLang}}
Line 3,409:
=={{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
.
.
for i =
if r$ <> "" or r[i] <> 0 or i = len r[]
r$ &= r[i]
.
|