Encuentre una secuencia en los dígitos de π

Las nuevas funciones SequenceCases, SequencePosition y SequenceCount ofrecen una nueva funcionalidad para extraer secuencias usando la concordancia de patrones.

Encuentre la ocurrencia de la primera fecha de lanzamiento de Mathematica en los dígitos de .

In[1]:=

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

Out[1]=

Cambie esta fecha a un formato adecuado para la búsqueda.

In[2]:=

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

Out[2]=

Genere los primeros tres millones de dígitos de .

In[3]:=

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

SequencePosition da las posiciones en las cuales la fecha formateada empieza y termina.

In[4]:=

pos = SequencePosition[pi, date]

Out[4]=

Ésta aparece sólo una vez en los primero tres millones de dígitos de . Esta instancia puede ser representada de una forma sencilla usando un objeto de 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]=

Intente otras fechas y encuentre su día aquí.