6 lines
211 B
Text
6 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 &]]
|