Ethiopian multiplication: Difference between revisions
Content deleted Content added
m →{{header|AutoHotkey}}: changed "loop" to "while" |
m →{{header|AutoHotkey}}: Modeled code after AWK |
||
Line 67:
Ethiopian( a, b ) {
r :=
While (a
a := half(a)▼
b := double(b)▼
if !isEven(a)
r += b
▲ a := half(a)
▲ b := double(b)
}
return r
| |||