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

3 lines
128 B
Plaintext

list=Import["http://wiki.puzzlers.org/pub/wordlists/unixdict.txt","Lines"];
MaximalBy[GatherBy[list, Sort@*Characters], Length]