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

3 lines
106 B
Plaintext

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