Поиск последовательности цифр в числе π: Новое в системе Wolfram Language 11

Поиск последовательности цифр в числе π

Новые функции 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]=

Сгенерируйте первые три миллиона цифр числа .

In[3]:=

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

SequencePosition выдаёт позиции, в которых начинается и заканчивается отформатированная дата.

In[4]:=

pos = SequencePosition[pi, date]

Out[4]=

Она появляется лишь однажды среди первых трёх миллионов цифр числа . Этот случай может быть представлен простым способом, используя объект Grid.

код на языке Wolfram Language целиком

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]:=