Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (8 sloc) 142 Bytes
(define (mul a b)
(cond
((= b 1) a)
((even? b) (mul (* 2 a) (/ b 2)))
(else
(+ a
(mul a (- b 1))))))
(mul 5 7)