[Comp] SICPでHaskell

Exercise 1.4 の a-plus-abs-b をHaskellで。

a_plus_abs_b :: Int -> Int -> Int

a_plus_abs_b a b = (if (b > 0) then (+) else (-)) a b