Язык Wolfram Language™

Создание шекспировской антологии при помощи FileSystemScan

Для данного примера используется директория с включением текстовых файлов всех работ Шекспира. Начните с импорта текстового содержания книг при помощи FileSystemMap, отбирая только само текстовое содержание.

In[1]:=

booksdir = FileNameJoin[{$HomeDirectory, "Books", "Shakespeare"}]

In[2]:=

works = Values[ FileSystemMap[Import, FileNameJoin[{$HomeDirectory, "Books"}], 2, FileNameForms -> "*.txt"][[1]]]

Out[2]=

Создайте единую антологию при помощи StringJoin.

In[3]:=

corpus = StringJoin[works]

Out[3]=

Антология может определяться как единая искомая строка, позволяя лёгкое использование приложений обработки текстов повышенного уровня. Определите, какие страны упоминаются в данных работах при помощи TextCases, попутно фильтруя повторы и случаи тумбового исполнения.

In[4]:=

countries = ToLowerCase[TextCases[corpus, "Country"]] // DeleteDuplicates

Out[4]=

In[5]:=

countries = DeleteCases[countries, "world"];

Создайте GeoListPlot стран, упоминающихся в работах Шекспира.

In[6]:=

GeoListPlot[Interpreter["Country"] /@ countries]

Out[6]=