RosettaCodeData/Task/Anagrams/Mathematica/anagrams-5.math
2020-02-17 23:21:07 -08:00

2 lines
128 B
Text

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