π の桁中に数列を探す

新関数の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]=

ここで他の日付も試し，自分の デーを探してみよう．