こんな感じでいいのかな？ (define (a-plus-abs-b a b) ((if (> b 0) + -) a b)) (a-plus-abs-b 1 2) (a-plus-abs-b 1 0) (a-plus-abs-b 5 -10) ;b がプラスの時は + ;b がマイナスの場合、マイナス演算子として作用する、

とりあえず関数名を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)…

分母のところがちょっとわからなくてググってしまいました。 (/ (+ 5 4 (- 2 (- 3 (+ 6 (/ 4 5))))) (* 3 (- 6 2) (- 2 7)))

答えをカンニングしたりしながら練習問題を消化。 IF をもう忘れてて少し悩んだのは内緒。 10 ;10 (+ 5 3 4) ;12 (- 9 1) ;8 (/ 6 2) ;3 (+ (* 2 4) (- 4 6)) ;6 (define a 3) (define b (+ a 1)) (+ a b (* a b)) ;19 (= a b) ;false (if (and (> b a) (< b…

計算機プログラムの構造と解釈作者: ジェラルド・ジェイサスマン,ジュリーサスマン,ハロルドエイブルソン,Gerald Jay Sussman,Julie Sussman,Harold Abelson,和田英一出版社/メーカー: ピアソンエデュケーション発売日: 2000/02メディア: 単行本購入: 35人 …