list - haskell中的排列

Question

我有一个列表:

let a = [1, 2, 3]

我需要得到另一个列表:

[1, 2, 3] ++ [1*2, 2*3, 1*3] ++ [1*2*3]

它是列表元素所有可能的唯一组合的产物。我在 Data.List 中建立了排列，但在我看来它有些不同。

是否有任何库函数可以获取此列表，或者您能否给我一些示例，我该如何创建自己的函数。

谢谢。

Answer 1

对于库函数，您可以使用 Data.List 中的 subsequences:

Prelude Data.List> subsequences [1,2,3]
[[],[1],[2],[1,2],[3],[1,3],[2,3],[1,2,3]]

您可以使用 map product $ subsequences [1,2,3] 获取所有产品。

但这与您指定的顺序不同。所以你可以排序，使用 Data.List 中的 sortBy 和 Data.Ord 中的comparing:

Prelude Data.List Data.Ord> sortBy (comparing length) $ subsequences [1,2,3]
[[],[1],[2],[3],[1,2],[1,3],[2,3],[1,2,3]]

同样，使用map product获取产品。

您的另一个想法是，自己编写一个函数，如果你正在学习 Haskell，这是最好的主意。试试吧!