RosettaCodeData/Task/Anagrams/Mathematica/anagrams-4.math

3 lines
106 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
anagramGroups = GatherBy[SortBy[GatherBy[list,Sort[Characters[#]] &],Length],Length];
anagramGroups[[-1]]