Skip to content

Instantly share code, notes, and snippets.

@kouddy

kouddy/SICP 1.17.part3

Created February 24, 2015 02:05
Show Gist options
  • Save kouddy/4b9e824f2a900f6bb4ca to your computer and use it in GitHub Desktop.
Save kouddy/4b9e824f2a900f6bb4ca to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SICP 1.17.part3
(define (double n) (* n 2))
(define (halve n) (/ n 2))
(define (even? n) (= (remainder n 2) 0))
(define (fast-mult a b)
(cond ((= b 0) 0)
((even? b) (double (fast-mult a (halve b))))
(else (+ a (fast-mult a (- b 1))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment