Structure and Interpretation of Computer Programs-Exercise 1.3

最新推荐文章于 2023-09-27 14:08:03 发布

杰Tang_fighting

最新推荐文章于 2023-09-27 14:08:03 发布

阅读量1.2k

点赞数 1

分类专栏： SICP 文章标签： SICP Lisp

本文链接：https://blog.youkuaiyun.com/jjjcainiao/article/details/35599743

版权

SICP 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个定义过程的方法，该过程接受三个数作为输入，并返回其中最大的两个数的平方和。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

【问题】

Define a procedure that takes three numbers as arguments and returns the sum of the squares of the two larger numbers.

定义一个过程，它以三个数为参数，返回其中较大的两个数的平方和。

【普通版】

(define (sum-square-largest x y z)
  (cond ((and (> y x) (> z x)) ;; y and z are largest
         (+ (* y y) (* z z)))
        ((and (> x y) (> z y)) ;; x and z are largest
         (+ (* x x) (* z z)))
        ((and (> x z) (> y z)) ;; x and y are largest
         (+ (* x x) (* y y)))))

【大神版】

(define (sum-square-largest x y z)
  (cond ((and (< x y) (< x z)) ;; x is smallest
         (+ (* y y) (* z z)))
        (else (sum-square-largest y z x))))

Program is art