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

3 lines
106 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
anagramGroups = GatherBy[SortBy[GatherBy[list,Sort[Characters[#]] &],Length],Length];
anagramGroups[[-1]]