Ethiopian multiplication: Difference between revisions
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 2,794:
Report Center,"Ethiopian Method of Multiplication"
// using decimals as unsigned integers
Def Decimal leftval, rightval, sum
(leftval, rightval)=(random(1, 65535), random(1, 65536))
Print $( , ColumnWith), "Target:", leftval*rightval,
Hex leftval*rightval
sum=0
if @IsEven(leftval) Else sum+=rightval
Line 2,824 ⟶ 2,823:
EthiopianMultiplication
</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
| |||