Skip to content

Instantly share code, notes, and snippets.

@cayblood

cayblood/gist:193313

Forked from redsquirrel/gist:189192
Created September 25, 2009 04:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cayblood/193313 to your computer and use it in GitHub Desktop.
Save cayblood/193313 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
SICP Exercise 1.3
(define (square a) (* a a))
(define (sum-of-squares a b) (+ (square a) (square b)))
(define (sum-of-largest-two-squares a b c)
(cond ((and (< a b) (< a c)) (sum-of-squares b c))
((and (< b a) (< b c)) (sum-of-squares a c))
(else (sum-of-squares a b))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment