問題1.3

亀の歩みだ…

僕の解答

(define (f x y z)
	(define (square n)
		(* n n))
	(define (sum a b)
		(+ (square a) (square b)))
	(if (>= x y)
	    (if (>= y z) (sum x y) (sum x z))
	    (if (>= x z) (sum y x) (sum y z))))

(display (f 3 5 4))
(newline)

解答例

• http://www.kahua.org/download/sicp/ex-1.3.scm

所感

３項演算子みたいなやり方のほうがスマートだなー。