Перевод слов из неизвестного языка

Возьмите строку на любом языке.

In[1]:=

string = "Danke";

Идентифицируйте, к какому языку принадлежит данное слово.

In[2]:=

origin = LanguageIdentify[string]

Out[2]=

Переведите данное слово на другой язык.

In[3]:=

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

Out[3]=

Возьмите список языков и постройте красивое словарное облако, содержащее все слова, которые являются переводами заданного слова.

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}]

Запустить анимацию

Остановить анимацию