Skip to content

Instantly share code, notes, and snippets.

@bor0

bor0/sicp-1-17.scm

Created December 26, 2015 14:28
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save bor0/68b068fa81717d666b36 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save bor0/68b068fa81717d666b36 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sicp-1-17.scm
(define (* a b)
(cond ((= a 1) b)
((even? a) (* (halve a) (double b)))
(else (+ a (* a (- b 1)))))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment