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

list=Import["http://wiki.puzzlers.org/pub/wordlists/unixdict.txt","Lines"];
MaximalBy[GatherBy[list, Sort@*Characters], Length]
Family Day update 2020-02-17 23:21:07 -08:00			`list=Import["http://wiki.puzzlers.org/pub/wordlists/unixdict.txt","Lines"];`
2016 Update 2016-12-05 22:15:40 +01:00			`MaximalBy[GatherBy[list, Sort@*Characters], Length]`