Anonymous user
Ethiopian multiplication: Difference between revisions
Added ActionScript
(Added ActionScript) |
|||
Line 51:
*[http://thedailywtf.com/Articles/Programming-Praxis-Russian-Peasant-Multiplication.aspx Programming Praxis: Russian Peasant Multiplication]
=={{header|ActionScript}}==
<lang ActionScript>public function Multiply(a:int,b:int):int {
var res:int = 0;
while (a > 0) {
if (a & 1) res += b;
a = a / 2;
b = b * 2;
}
return res;
}</lang>
=={{header|Ada}}==
<lang Ada>package Ethiopian is
| |||