問題1.4

;;;aにbの絶対値を加算する
(define (a-plus-abs-b a b)
  ((if (> b 0) + -) a b))

(a-plus-abs-b 1 3)
(a-plus-abs-b 1 -3)

述語から演算子を求めて式を合成しています。