Skip to content

Instantly share code, notes, and snippets.

@tetsu-miyagawa

tetsu-miyagawa/SICP Exercise 1.3.scm

Last active August 29, 2015 14:23
Show Gist options
  • Save tetsu-miyagawa/c1ef2e2109111de27fed to your computer and use it in GitHub Desktop.
Save tetsu-miyagawa/c1ef2e2109111de27fed to your computer and use it in GitHub Desktop.
Download ZIP
SICP Exercise 1.3
Raw
SICP Exercise 1.3.scm
(define (sum-square-of-larger-two x y z)
(cond ((and (< x y) (< x z)) (+ (* y y) (* z z)))
((and (< y x) (< y z)) (+ (* x x) (* z z)))
(else (+ (* x x) (* y y)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment