3 lines
196 B
Text
3 lines
196 B
Text
maxWords[language_String] := Module[{max,data = Select[DictionaryLookup[{language, "*"}],OrderedQ[Characters[#]] &]},
|
|
max = Max[StringLength /@ data];
|
|
Select[data, StringLength[#] == max &]]
|