Anonymous user
Ethiopian multiplication: Difference between revisions
m
→{{header|Clojure}}
Line 446:
(defn emult2 [x y]
(loop [a x, b y, r 0]
(if (= a 1)
(+ r b)
|