; ======================================================================
;
; 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
