理系学生日記

おまえはいつまで学生気分なのか

忍者TOOLS

問題1-3

ひさしぶりに読んでみたら、すっかりわすれてました。これはもうだめかもわからんので、もう一回やりなおそう。
ぼくはこういう風に最初からやり直すことがよくあって、そして結局最後までいけないこともよくあります。

(define (square x) (* x x))

(define (sum-of-square x y)
  (+ (square x) (square y)))

(define (sum-of-bigger2 x y z)
  (if (> x y)
      (sum-of-square x (if (> y z) y z))
      (sum-of-square y (if (> x z) x z))))