Composite function takes multiple arguments

Question

This is my program:

boolToInt True  = 1
boolToInt False = 0

gt :: Int -> Int -> Int
gt x y = boolToInt $ (>) x y

I try refactoring gt with gt = boolToInt . (>) but getting an error:

‘(>)’ is applied to too few arguments

The only idea come to me is curry and uncurry, but I suppose it might make gt even more complicated than gt x y = boolToInt $ (>) x y.

Do I have a prettier functional solution to this composition?

You can uncurry `(>)`, then re-curry the result. `gt = curry (boolToInt . (uncurry (>)))`. — chepner, Sep 17 '16 at 13:14

score 2 · Answer 1 · answered Sep 17 '16 at 08:49

2

The magical pointfree.io has come up with the following solution:

gt :: Int -> Int -> Int
gt = (boolToInt .) . (>)

answered Sep 17 '16 at 08:49

ljedrz

score 0 · Answer 2 · answered Sep 17 '16 at 08:49

0

You can do:

(boolToInt .) . (>)

answered Sep 17 '16 at 08:49

ThreeFx

2 Answers2