Scheme(2)

by freeuniverser

強烈的感受到Scheme的魅力，一個Scheme小程式，拋磚引玉！

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

1 (define (MAX a b c)2 3   (define (Square n) (* n n))4 5   (if (< b (max a c) )6 7     (+ (Square (max a b)) (Square(max b c)))8 9    (+ (Square b)(Square(max a c)))))

 如果不使用max，那麼可以這樣：

 1 (define (square s) 2   (* s s)) 3 (define (sum-of-squares x y) 4   (+ (square x) 5      (square y))) 6 (define (bigger x y) 7   (if (> x y) 8       x 9       y))10 (define (biggers-sum-of-squares a b c)11   (if (< b (bigger a c))12          (sum-of-squares (bigger a b) (bigger b c))13          (sum-of-squares b (bigger a c))))