Ethiopian multiplication: Difference between revisions
→{{header|Quackery}}: renamed double, halve
(Added Quackery) |
(→{{header|Quackery}}: renamed double, halve) |
||
Line 4,332:
Adapted from Forth version, extended to handle negative numbers.
<lang Quackery>[ 1 & not ] is even ( n --> b )
[ 1 << ]
[ 1 >> ]
[ dup 0 < unrot abs
[ dup 0 = iff nip done
over
recurse
swap even
iff nip else + ]
swap if negate ] is e* ( n n --> n )</lang>
=={{header|R}}==
| |||