在 haskell 中对列表的列表进行排序

Question

我完全困惑于如何编写一个函数，在给定一个集合列表的情况下，该函数返回按大小拆分为子列表的集合（并且子列表按它们包含的集合的大小排序）。

样本输入

*Main> allSets
[[1,2],[8],[1,4,7,8],[5],[1,4],[1],[2,3],[1,2,5,8],[3,4,6,7],[1,2,3,4],[4],[5,6,7,8],[3,4],[3],[2,3,5,6],[7],[6],[2]]

样本输出

*Main> collectByLength allSets
[[[2],[6],[7],[3],[4],[1],[5],[8]],[[3,4],[2,3],[1,4],[1,2]],[[2,3,5,6],[5,6,7,8],[1,2,3,4],[3,4,6,7],[1,2,5,8],[1,4,7,8]]]

基本上，它应该将所有相同大小的集合分组为自己的集合，然后将下一个最大大小的集合分组。

Answer 1

您使用的是“集合”一词，但您的代码实际上使用了列表...因此，这是一个基于列表的解决方案（如果您想切换到实际集合，可以轻松调整）：

import Data.List (sortBy)
import Data.Function (on)

groupBy ((==) `on` length) $ sortBy (compare `on` length) [[0],[1,2],[3]]
-- => [[[0],[3]],[[1,2]]]

Answer 2

导入Data.Function、Data.Ord和List后，可以这样写：

sortBy (comparing length) $ groupBy ((==) `on` length) $ sortBy (comparing length) theList