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))
)