Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
5 lines (4 sloc) 150 Bytes
(define (a-plus-abs-b a b)
((if (> b 0) + -) a b))
; if b is greater than 0 then the function will compute a + b
; otherwise it will compute a - b