RosettaCodeData/Task/Anagrams/Mathematica/anagrams-5.math
2023-07-01 13:44:08 -04:00

2 lines
128 B
Text

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