Anonymous user
Ethiopian multiplication: Difference between revisions
→{{header|Mathematica}}
m (→{{header|Perl 6}}: move lambdas inside the function) |
|||
Line 1,335:
Total[Select[NestWhileList[{IntegerHalving[#[[1]]],IntegerDoubling[#[[2]]]}&, {x,y}, (#[[1]]>1&)], OddQ[#[[1]]]&]][[2]]
Ethiopian[17, 34]</lang>
->578</lang>▼
Output:
=={{header|Metafont}}==
| |||