Define a procedure that takes three numbers as arguments and returns the sum of the squares of the two larger numbers.
(define (compare x y) (- x y))
(define (sumsquares x y)(+(* x x)(* y y)))
(define (returnlarge a b c)
(cond ((and (>= (compare a b) 0) (>= (compare c b) 0)) (sumsquares a c))
((and (>= (compare a c) 0) (>= (compare b c) 0)) (sumsquares a b))
((and (>= (compare c a) 0) (>= (compare b a) 0)) (sumsquares b c))
)
)
(returnlarge 3 3 2)
>18
posted on 2009-03-05 19:56
lzj520 閱讀(227)
評論(0) 編輯 收藏 所屬分類:
個人學習日記 、
sicp