Chapter 1, Building Abstractions with Procedures
Section - The Elements of Programming
Exercise 1.3
1
2
3
4
5
6
7
8
9
10
11
12
#lang sicp
(define (sum-of-sqr-of-two-lrgr-numbers x y z)
(cond ((and (< x y) (< x z)) (sum-of-sqr y z))
((and (< y x) (< y z)) (sum-of-sqr x z))
(else (sum-of-sqr x y))
)
)
(define (sum-of-sqr x y)
(+ (* x x) (* y y))
)