RosettaCodeData/Task/Anagrams/Mathematica/anagrams-4.math
2023-07-01 13:44:08 -04:00

2 lines
106 B
Text

anagramGroups = GatherBy[SortBy[GatherBy[list,Sort[Characters[#]] &],Length],Length];
anagramGroups[[-1]]