π の桁中に数列を探す
新関数のSequenceCases,SequencePosition,SequenceCountは,パターンマッチングを使って数列を抽出する新機能を提供する.
の桁数字の中にMathematicaが最初にリリースされた日を見付ける.
In[1]:=
![Click for copyable input](assets.ja/find-a-sequence-in-the-digits-of-pi/In_26.png)
EntityValue[
Entity["ProgrammingLanguage", "WolframLanguage"], "DateIntroduced"]
Out[1]=
![](assets.ja/find-a-sequence-in-the-digits-of-pi/O_36.png)
この日付を検索に適した形式に変える.
In[2]:=
![Click for copyable input](assets.ja/find-a-sequence-in-the-digits-of-pi/In_27.png)
EntityValue[
Entity["ProgrammingLanguage", "WolframLanguage"], "DateIntroduced"];
date = Characters[DateString[%, {"Month", "Day", "YearShort"}]]
Out[2]=
![](assets.ja/find-a-sequence-in-the-digits-of-pi/O_37.png)
の最初の3百万桁を生成する.
In[3]:=
![Click for copyable input](assets.ja/find-a-sequence-in-the-digits-of-pi/In_28.png)
pi = Characters[ToString@N[Pi, 3000000]];
SequencePositionは,フォーマットされた日付が始まる位置と終る位置を与える.
In[4]:=
![Click for copyable input](assets.ja/find-a-sequence-in-the-digits-of-pi/In_29.png)
pos = SequencePosition[pi, date]
Out[4]=
![](assets.ja/find-a-sequence-in-the-digits-of-pi/O_38.png)
この日付は の最初の3百万桁の中には1ヶ所しか見付からない.これは,Gridオブジェクトを使って簡単な方法で表すことができる.
完全なWolfram言語入力を表示する
In[6]:=
![Click for copyable input](assets.ja/find-a-sequence-in-the-digits-of-pi/In_31.png)
Grid[Partition[chars, 8]]
Out[6]=
![](assets.ja/find-a-sequence-in-the-digits-of-pi/O_39.png)
ここで他の日付も試し,自分の デーを探してみよう.