Skip to content

Instantly share code, notes, and snippets.

@aoeuidht
aoeuidht / gist:3728553
Created September 15, 2012 15:52
SICP Exercise 1.3
;Exercise 1.3. Define a procedure that takes three numbers as arguments and returns the sum of the squares of the two larger numbers.
(define (sum_squares_top2 c1 c2 c3)
(+
(square max(c1 c2))
(square max((min c1 c2) c3))))