Ethiopian multiplication: Difference between revisions

Content added Content deleted
(added Ursala)
Line 822: Line 822:
#import nat
#import nat


emul = sum:-0@rS+ (odd@l)*~+ ^|(~&,double)|\+ *-^|\~& @iNC ~&h->tx :^/half@h ~&
emul = sum:-0@rS+ odd@l*~+ ^|(~&,double)|\+ *-^|\~& @iNC ~&h->tx :^/half@h ~&
</lang>
</lang>