본문 바로가기

SICP풀이

[scip]연습문제 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 a b) (+ a b))
(define (square a) (* a a))
(define (largerNumber2 a b) 
   (cond ((> a b) a)
        ((= a b) a)
        ((< a b) b)
    )
  )

(define (largerNumber3 a b c)  (square (sum (largerNumber2 a b) (largerNumber2 a c))))

(largerNumber3 2 2 2)
(largerNumber3 10 11 12)
(largerNumber3 10 12 12)