π 자리 중 수열 찾기

새로운 함수 SequenceCases, SequencePosition, 그리고 SequenceCount는 패턴 매칭을 사용하여 수열을 추출하는 새로운 기능을 제공합니다.

의 각 자리에서 Mathematica의 첫 출시 날짜를 찾습니다.

In[1]:=

EntityValue[ Entity["ProgrammingLanguage", "WolframLanguage"], "DateIntroduced"]

Out[1]=

날짜를 검색에 적합한 형태로 바꿉니다.

In[2]:=

EntityValue[ Entity["ProgrammingLanguage", "WolframLanguage"], "DateIntroduced"]; date = Characters[DateString[%, {"Month", "Day", "YearShort"}]]

Out[2]=

의 최초의 3백만 자리를 생성합니다.

In[3]:=

pi = Characters[ToString@N[Pi, 3000000]];

SequencePosition은 포맷 된 날짜의 시작되는 위치와 끝나는 위치를 줍니다.

In[4]:=

pos = SequencePosition[pi, date]

Out[4]=

이 날짜는 의 최초 3백만 자리에서 1번 밖에 발견되지 않습니다. 이것은 Grid 개체를 사용하여 간단한 방법으로 나타낼 수있습니다.

In[5]:=

chars = Join[ Take[pi, 21], Characters["..."], Take[pi, First@pos - {14, 6}], Style[#, Orange] & /@ Take[pi, First@pos], Take[pi, First@pos + {6, 4}] ];

In[6]:=

Grid[Partition[chars, 8]]

Out[6]=

다른 날짜를 시도해보고, 여기서 자신의 데이를 찾아 봅니다!