(define (a-plus-abs-b a b) ((if (> b 0) + -) a b))x #<undef>
(define (a-plus-abs-b a b) ((if (> b 0) + -) a b))
#<undef>
如果 b 大于 0,则返回 a 加上 b 的值。否则返回 a 减去 b 的值。