Anonymous user
Long multiplication: Difference between revisions
→{{header|Maple}}
Line 3,147:
=={{header|Maple}}==
#la := length(a);▼
#digit := (n,i)->iquo(n,10^(i-1)) mod 10;▼
#add( add( digit(a,la-i+1) * digit(b,lb-j+1) *10^(la-i+lb-j), i=1..la), j=1..lb );▼
▲ la := length(a);
# That solution is really innefficient
return a*b;
▲ digit := (n,i)->iquo(n,10^(i-1)) mod 10;
▲ add( add( digit(a,la-i+1) * digit(b,lb-j+1) *10^(la-i+lb-j), i=1..la), j=1..lb );
end;
Line 3,159 ⟶ 3,158:
340282366920938463463374607431768211456
</lang>
=={{header|Mathematica}}==
| |||