Ethiopian multiplication: Difference between revisions

=={{header|Quackery}}==

Adapted from Forth version, extended to handle negative numbers.

<lang Quackery>[ 1 & not ] is even ( n --> b )

[ 1 << ] is 2* ( n --> n )

[ 1 >> ] is 2/ ( n --> n )

[ dup 0 < unrot abs

[ dup 0 = iff nip done

over 2* over 2/

recurse

swap even

iff nip else + ]

swap if negate ] is e* ( n n --> n )</lang>