Ethiopian multiplication: Difference between revisions

<lang ela>open Corelist

let halve = (/2)

let double = (*2)

let odd = (==1) << (%2)

let ethiopicmult a b = sum <| map snd <| filter (odd << fst) <| zip

(takeWhile (>=1) <| iterate halve a)

(iterate double b)