sicp Exercise 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 (f a b c)
  (cond ((> a b)
         (cond ((> a c)
                (cond ((> b c) (+ (* a a) (* b b)))
                      (else (+ (* a a) (* c c)))))
                (else (+ (* c c) (* a a)))))
        (else (cond ((< a c)
                     (cond ((> c b) (+ (* c c) (* b b)))
                           (else (+ (* b b) (* c c)))))
                     (else (+ (* b b) (* a a)))))))

补充一点证明以上解答确实没问题：

从3个数中取2个数，且没有顺序要求，就是一个n=3,r =2的无重复的组合问题，所以总共有三种组合方式。

代码中因为有顺序，所以是n=3,r=2的无重复的排列问题，总共有6种：

a,b a,c c,a c,b b,c b,a

忽略顺序之后就是a,b a,c b,c

sicp Exercise 1.3 强行解答

原文：http://blog.csdn.net/yuxiaohen/article/details/46561289