感心したよscheme

(define (a-plus-abs-b a b)
((if (> b 0) + -)
a b)
)

こんな風に、演算子も式で決定できるのね。

こりゃすごい。

出展: SICP 問題 1.3