Computação com listas de palavras multilíngues

Compare a distrubuição de números de caracteres por palavras em diferentes idiomas.

In[1]:=

languages = {"German", "English", "Italian", "Dutch", "Russian"};

Obtenha a lista disponível de palavras desses idiomas e agrupe-as em uma associação.

In[2]:=

words = Association[# -> WordList[Language -> #] & /@ languages];

Calcule o comprimento de cada uma dessas palavras.

In[3]:=

wordLengths = StringLength /@ words;

Estes são os comprimentos mínimos e máximos.

In[4]:=

MinMax /@ wordLengths

Out[4]=

Mostre histogramas sobrepostos de frequências relativas em cada idioma. Russo e inglês tem uma fração maior de palavras curtas, enquanto holandês e alemão tem a fração maior de palavras mais longas.

In[5]:=

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

Out[5]=

Combine os histogramas para mostrar a contagem total de comprimento para os todos os idiomas juntos.

In[6]:=

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

Out[6]=