6 lines
77 B
Scheme
6 lines
77 B
Scheme
|
(define (add-abs a b)
|
||
|
|
((if (> b 0) + -) a b )
|
||
|
|
)
|
||
|
|
|
||
|
|
(print (add-abs 3 -4))
|