Wolfram 언어

시스템 레벨의 기능

FileSystemScan을 사용한 셰익스피어 풍 언어 자료 작성

이 예제에서는 셰익스피어 전 작품의 텍스트 파일을 포함하는 디렉토리를 이용합니다. 우선 FileSystemMap으로 책의 텍스트 부분만을 모아 가져오기를 실행합니다.

전체 Wolfram 언어 입력 표시하기
In[1]:=
Click for copyable input
booksdir = FileNameJoin[{$HomeDirectory, "Books", "Shakespeare"}]
In[2]:=
Click for copyable input
works = Values[ FileSystemMap[Import, FileNameJoin[{$HomeDirectory, "Books"}], 2, FileNameForms -> "*.txt"][[1]]]
Out[2]=

StringJoin을 사용하여 단일 언어 자료를 구축합니다.

In[3]:=
Click for copyable input
corpus = StringJoin[works]
Out[3]=

이제 이 언어 자료는 하나의 검색 가능한 문자열로 취급 할 수 있게 되었으므로, 고급 텍스트 처리 응용 프로그램도 간단히 사용 가능합니다. 중복과 격의 문제를 제거하면서 TextCases를 사용하여 이 작품에 어떤 나라가 참조되었는지 조사합니다.

In[4]:=
Click for copyable input
countries = ToLowerCase[TextCases[corpus, "Country"]] // DeleteDuplicates
Out[4]=
전체 Wolfram 언어 입력 표시하기
In[5]:=
Click for copyable input
countries = DeleteCases[countries, "world"];

셰익스피어의 작품에 언급 된 국가의 GeoListPlot을 구축합니다.

In[6]:=
Click for copyable input
GeoListPlot[Interpreter["Country"] /@ countries]
Out[6]=

관련 예제

de en es fr ja pt-br ru zh