wolfram-mathematica - 如何根据 Mathematica 中的元素总数对列表进行类似 Tally 的操作

Question

例如，我有一个列表，如:

{{1, 2, 3}, {6}, {4, 5}, {1, 6}, {2, 2, 3, 2}, {9}, {7}, {2, 5}}

我想根据列表元素的总数获得一个统计列表。

在这种情况下，我希望输出为:

{{6, {{1, 2, 3}, {6}}, {7, {{2, 5}, {1, 6}, {7}}}, {9, {{4, 5}, {2, 2, 3, 2}, {9}}}}}

如何在 Mathematica 中方便地做到这一点？

非常感谢。

Answer 1

这是我的尝试 - 比尤达的简单一点

lst = {{1, 2, 3}, {6}, {4, 5}, {1, 6}, {2, 2, 3, 2}, {9}, {7}, {2, 5}};

{Total@First@#, #} & /@ GatherBy[lst, Total]

如果你不想要重复的元素，那么你可以使用

{Total@First@#, Union[#]} & /@ GatherBy[lst, Total]

或者如果你真的想要一个类似计数的操作

{Total@First@#, Tally[#]} & /@ GatherBy[lst, Total]