5 lines
211 B
Text
5 lines
211 B
Text
Module[{max,
|
|
data = Select[Import["http://www.puzzlers.org/pub/wordlists/unixdict.txt", "List"],
|
|
OrderedQ[Characters[#]] &]},
|
|
max = Max[StringLength /@ data];
|
|
Select[data, StringLength[#] == max &]]
|