Calcul avec des listes de mots multilingues

Comparez la répartition 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 un pourcentage plus élevé de mots courts, tandis que le néerlandais et l'allemand ont un nombre nettement plus élevé de mots longs.

In[5]:=

Histogram[wordLengths, Automatic, "PDF", ChartLegends -> Automatic]

Out[5]=

Combinez les histogrammes pour afficher le nombre total de longueurs pour toutes les langues.

In[6]:=

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

Out[6]=