RosettaCodeData/Task/Ethiopian-multiplication/MATLAB/ethiopian-multiplication-4.m
2023-07-01 13:44:08 -04: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