Ethiopian multiplication: Difference between revisions
Content added Content deleted
(added Ursala) |
|||
Line 822: | Line 822: | ||
#import nat |
#import nat |
||
emul = sum:-0@rS+ |
emul = sum:-0@rS+ odd@l*~+ ^|(~&,double)|\+ *-^|\~& @iNC ~&h->tx :^/half@h ~& |
||
</lang> |
</lang> |
||