問題1.3 をやってみる
とりあえず関数名をjjjにしてみました
(define (square x) (* x x)) (define (sum-of-squares x y) (+ (square x) (square y))) (define (jjj a b c) (if (> a b) (if (> b c) (sum-of-squares a b) (sum-of-squares a c)) (if (> a c) (sum-of-squares b a) (sum-of-squares b c)) )) (jjj 1 2 3) (jjj 2 1 3) (jjj 3 2 1)