SICP Exercise 1.3

Exercise1-3.scm

(define (sq x) (* x x))
; sq

(define (sumsq x y) (+ (sq x) (sq y)))
; sumsq

(define (largest2sq a b c)
        (cond ((and (<= a b) (<= a c)) (sumsq b c))
              ((and (<= b a) (<= b c)) (sumsq a c))
              (else (sumsq a b))))
; largest2sq

; Test cases:-
(largest2sq 1 2 3)
; 13
(largest2sq 1 3 2)
; 13
(largest2sq 1 1 2)
; 5