Ethiopian multiplication: Difference between revisions

m
Line 1,559:
{Show {EthiopicMult 17 34}}</lang>
=={{header|PARI/GP}}==
<lang PARI/GPparigp>halve(n)=n\2;
double(n)=2*n;
even(n)=!(n%2);
multE(a,b)={ my(d=0);
while(a,
Line 1,569:
b=double(b));
d
};</lang>
 
=={{header|Perl}}==