Ethiopian multiplication: Difference between revisions
Added Quackery
Thundergnat (talk | contribs) m (Regularize non-standard header markup) |
(Added Quackery) |
||
Line 4,327:
Product: 578</pre>
=={{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>
=={{header|R}}==
| |||