6 lines
265 B
Text
6 lines
265 B
Text
list=Import["http://wiki.puzzlers.org/pub/wordlists/unixdict.txt","Lines"];
|
|
text={#,StringJoin@@Sort[Characters[#]]}&/@list;
|
|
text=SortBy[text,#[[2]]&];
|
|
splits=Split[text,#1[[2]]==#2[[2]]&][[All,All,1]];
|
|
maxlen=Max[Length/@splits];
|
|
Select[splits,Length[#]==maxlen&]
|