RosettaCodeData/Task/Anagrams/Mathematica/anagrams-4.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

2 lines
106 B
Text

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