Создайте инструмент поиска текста при помощи извлечения признаков
Обучите выделитель признаков на предложениях из книги "Алиса в стране чудес".
In[1]:=

alice = ExampleData[{"Text", "AliceInWonderland"}];
sentences = TextSentences[alice];
fe = FeatureExtraction[sentences]
Out[1]=

Сгенерируйте NearestFunction на извлечённых признаках текстовых данных.
In[2]:=

nf = Nearest[fe[sentences] -> Automatic]
Out[2]=

Создайте функцию, показывающую ближайшее предложение в книге "Алиса в стране чудес", и протестируйте её работу на нескольких предложениях.
In[3]:=

nearestalice = sentences[[First@nf[fe[#]]]] &;
In[4]:=

nearestalice["Alice and the Rabbit"]
Out[4]=

In[5]:=

nearestalice["Off her head"]
Out[5]=
