Wolfram Language™

Enconte uma sequência nos dígitos de π

As novas funções SequenceCases, SequencePosition, e SequenceCount oferecem novas funcionalidades para extrair sequências utilizando reconhecimento de padrões.

Ache a ocorrência da primeira data de lançamento do Mathematica nos dígitos de π .

In[1]:=

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

Out[1]=

Mude esta data para um formato adequado para a busca.

In[2]:=

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

Out[2]=

Gere os primeiros 3 milhões de dígitos de π.

In[3]:=

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

SequencePosition dá as posições em que a data formatada começa e termina.

In[4]:=

pos = SequencePosition[pi, date]

Out[4]=

Ele aparece apenas uma vez nos primeiros 3 milhões de dígitos de π. Podemos representar esta ocorrência de uma forma simples usando um objeto Grade.

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

Tente outras datas e ache seu dia aqui!