无点风格并使用$

Question

如何结合使用$和无点风格？

一个明显的例子是以下效用函数:

times :: Int -> [a] -> [a]
times n xs = concat $ replicate n xs  

只是写入concat $ replicate产生错误,类似的是你不能写concat . replicate,因为concat期望值而不是函数.

那么你如何将上述功能转变为无点风格呢？

Answer 1

你可以使用这个组合器:(冒号提示两个参数如下)

(.:) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
(.:) = (.) . (.)

它可以让你摆脱n:

time = concat .: replicate

Answer 2

您可以轻松地编写几乎无点的版本

times n  =  concat . replicate n

一个完全无点的版本可以通过明确的咖喱和不连续来实现:

times  =  curry $ concat . uncurry replicate

Answer 3

上freenode并问lambdabot;)

<jleedev> @pl \n xs -> concat $ replicate n xs
<lambdabot> (join .) . replicate