Ethiopian multiplication: Difference between revisions
Content added Content deleted
m (→{{header|Python}}: Spacing) |
|||
Line 1,559: | Line 1,559: | ||
{Show {EthiopicMult 17 34}}</lang> |
{Show {EthiopicMult 17 34}}</lang> |
||
=={{header|PARI/GP}}== |
=={{header|PARI/GP}}== |
||
<lang |
<lang parigp>halve(n)=n\2; |
||
double(n)=2*n |
double(n)=2*n; |
||
even(n)=!(n%2) |
even(n)=!(n%2); |
||
multE(a,b)={ my(d=0); |
multE(a,b)={ my(d=0); |
||
while(a, |
while(a, |
||
Line 1,569: | Line 1,569: | ||
b=double(b)); |
b=double(b)); |
||
d |
d |
||
}</lang> |
};</lang> |
||
=={{header|Perl}}== |
=={{header|Perl}}== |