在 Haskell 中表达长链组合

Question

（不重要的背景信息/动机）

我正在实现一个不同版本的nub，灵感来自Yesod书的劝阻< /a> 使用它。

地图头。团体 。 sort 比调用 nub 更有效。然而，在我们的例子中，顺序很重要......

所以我开始编写一个类似于顺序不重要版本的“更好”的小块。我最终得到的结果是：

mynub = unsort . map head . groupBy (\x y -> fst x == fst y) . sortBy (comparing fst) . rememberPosition

rememberPosition = flip zip [0..]
unsort = map fst . sortBy (comparing snd)

这确实做了很多额外的工作，但它应该是 O(n log n) 而不是原始 nub 的 O(n²)。但这不是重点。问题是，太长了！它实际上没有那么复杂，但是很长（我是那些讨厌超过 80 列或 StackOverflow 代码块上的水平滚动条的人之一）。

（问题）

Haskell 中有哪些更好的方法来表达像这样的长链函数组合？

Answer 1

拆开线条，并使用布局：

mynub = unsort 
      . map head 
      . groupBy ((==) `on` fst)
      . sortBy (comparing fst) 
      . rememberPosition

Answer 2

线宽很容易解决:)

> mynub = { unsort 
>         . map head 
>         . groupBy (\x y -> fst x == fst y) 
>         . sortBy (comparing fst) 
>         . rememberPosition
>         }

但我几乎不习惯从右到左阅读作文。从上到下有点多了。
箭头或 (>>>)=flip (.) 对我来说看起来更好，但我不知道这是否是惯用的

> mynub = { rememberPosition
>       >>> sortBy (comparing fst) 
>       >>> groupBy (\x y -> fst x == fst y) 
>       >>> map head 
>       >>> unsort 
>         }