Composite函数有多个参数

Question

这是我的计划：

boolToInt True  = 1
boolToInt False = 0

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

我尝试使用gt重构gt = boolToInt . (>)，但收到错误：

  

'（＆gt;）'适用于太少的参数

唯一的想法是curry和uncurry，但我想它可能会使gt比gt x y = boolToInt $ (>) x y更复杂。

我是否有一个更漂亮的功能性解决方案？

Answer 1

神奇的pointfree.io提出了以下解决方案：

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

Answer 2

你可以这样做：

(boolToInt .) . (>)