Ethiopian multiplication: Difference between revisions
m
→{{header|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 << ] is double ( n --> n )
[ 1 >> ] is halve ( n --> n )
[ dup 0 < unrot abs
Line 4,344:
swap even
iff nip else + ]
swap if negate ] is e* ( n n --> n )</lang>
=={{header|R}}==
| |||