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