RosettaCodeData/Task/Ethiopian-multiplication/MATLAB/ethiopian-multiplication-4.m
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

15 lines
387 B
Matlab

function answer = ethiopianMultiplication(multiplicand,multiplier)
%Generate columns
while multiplicand(end)>1
multiplicand(end+1,1) = halveInt( multiplicand(end) );
multiplier(end+1,1) = doubleInt( multiplier(end) );
end
%Strike out appropriate rows
multiplier( isEven(multiplicand) ) = [];
%Generate answer
answer = sum(multiplier);
end