Haskell 函数根据子列表的长度对整数列表进行排序

Question

我有一个清单：

[[1,2],[1,2,3],[2,3],[4],[1,2,5,4],[2,3,1]]

我想按照子列表的升序和长度对这个列表进行排序

像这样：

[[4],[1,2],[2,3],[1,2,3],[2,3,1],[1,2,5,4]]

我找到了一个解决方案，但这不是我想要的

我找到了这个功能：

import Data.List

doubleSort :: (Ord a, Num a) => [[a]] -> [[a]]
doubleSort = sortOn sum . map sort

但这以我不想要的方式对列表进行排序：

[[1,2],[4],[2,3],[1,2,3],[1,2,3],[1,2,4,5]]

Answer 1

sort{[By,On]}是稳定的排序，因此您可以简单地按次要标准排序，然后按主要标准排序。

> :m +Data.List
> sortOn length $ sort [[1,2],[1,2,3],[2,3],[4],[1,2,5,4],[2,3,1]]
[[4],[1,2],[2,3],[1,2,3],[2,3,1],[1,2,5,4]]

如果它已经按字典顺序排序，那么仅sortOn length就可以了。

Answer 2

有一个sort

> sortOn (length &&& sum)

&&&来自 Control.Arrow