SICP Exercise 1.3 request for comments

后端 未结 17 1681
耶瑟儿~
耶瑟儿~ 2020-12-08 21:06

I\'m trying to learn scheme via SICP. Exercise 1.3 reads as follow: Define a procedure that takes three numbers as arguments and returns the sum of the squares of the two la

17条回答
  •  半阙折子戏
    2020-12-08 21:22

    (define (sum-sqr x y)
    (+ (square x) (square y)))
    
    (define (sum-squares-2-of-3 x y z)
        (cond ((and (<= x y) (<= x z)) (sum-sqr y z))
                 ((and (<= y x) (<= y z)) (sum-sqr x z))
                 ((and (<= z x) (<= z y)) (sum-sqr x y))))
    

提交回复
热议问题