Calcul avec des listes de mots multilingues
Comparez la distribution des nombres de caractères par mot dans différentes langues.
In[1]:=

languages = {"German", "English", "Italian", "Dutch", "Russian"};
Obtenez les listes de mots disponibles pour ces langues et groupez-les dans une association.
In[2]:=

words = Association[# -> WordList[Language -> #] & /@ languages];
Calculez les longueurs de chacun de ces mots.
In[3]:=

wordLengths = StringLength /@ words;
Voici les longueurs minimales et maximales.
In[4]:=

MinMax /@ wordLengths
Out[4]=

Affichez les histogrammes superposés des fréquences relatives dans chaque langue. Le russe et l'anglais ont une fraction plus élevée de mots plus courts, tandis que le néerlandais et l'allemand ont une queue claire des mots plus longs.
In[5]:=

Histogram[wordLengths, Automatic, "PDF", ChartLegends -> Automatic]
Out[5]=

Combinez les histogrammes pour afficher le compte total de longueurs pour toutes les langues ensemble.
In[6]:=

Histogram[wordLengths, ChartLegends -> Automatic,
ChartLayout -> "Stacked"]
Out[6]=
