moremagic https://blog.hatena.ne.jp/moremagic/ moremagic’s diary https://moremagic.hateblo.jp/ SICP とりあえず関数名を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) 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmoremagic.hateblo.jp%2Fentry%2F20130516%2F1368711645" title="問題1.3　をやってみる - moremagic’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-05-16 22:40:45 rich https://moremagic.hateblo.jp/entry/20130516/1368711645 1.0 100%