Translate Words from an Unknown Language

Take a string in some language.

In[1]:=

string = "Danke";

Identify the language of this word.

In[2]:=

origin = LanguageIdentify[string]

Out[2]=

Translate to another language.

In[3]:=

WordTranslation[string, origin -> Entity["Language", "Spanish"]]

Out[3]=

Take a list of languages and build a nice-looking word cloud of the words appearing on the multiple translations that this word has.

In[4]:=

langs = {Entity["Language", "Spanish"], Entity["Language", "English"], Entity["Language", "Russian"], Entity["Language", "Danish"], Entity["Language", "Korean"]}; Manipulate[ WordCloud[ Flatten[TextWords /@ WordTranslation[string, LanguageIdentify[string] -> language]], ImageSize -> {512, 256}], {language, langs}]

Play Animation

Stop Animation