haskell - 是否有惯用的pointfree方法通过另一个函数调用带参数的函数

Question

我们有这些功能

foo x1 x2 ... xN =

f1 x =
f2 x =
...
fN x = 

是否有此功能的惯用 pointfree 版本？

bar x1 x2 ... xn = foo (f1 x1) (f2 x2) ... (fN xN)

编辑

如果不是，我们可以以某种方式将此函数推广到 N 个参数吗？

applyF3 f f1 f2 f3 x1 x2 x3 = f (f1 x1) (f2 x2) (f3 x3)
bar = applyF3 foo f1 f2 f3

Answer 1

不是很地道:

import Control.Arrow

bar = curry . curry $ (f1 *** f2) *** f3 >>> (uncurry . uncurry $ foo)

添加更多 curry/uncurry s 获取更多参数。

有针对性的版本要清楚得多。