DIV CSS 佈局教程網

; ======================================================================
;
;          Structure and Interpretation of Computer Programs
;                  (trial answer to excercises)
;
;                  計算機程序的構造和解釋(習題試解)
;
;                                             created: code17 02/24/05
;                                             modifIEd:
; (保持內容完整不變前提下，可以任意轉載)
; ======================================================================

;; SICP No.1.3

(define (sqr2 x y)
  (+ (* x x)
     (* y y)))
(define (sqr3 x y z)
  (if (> x y)
      (sqr2 x
            (if (> y z) y z))
      (sqr2 y
            (if (> x z) x z))))


;; Test-it:
;; Welcome to MzScheme version 209, Copyright (c) 2004 PLT Scheme, Inc.
;; > (sqr3 5 11 7)
;; 170