Wolfram Language™

Trouvez une séquence dans les chiffres de π

Les nouvelles fonctions SequenceCases, SequencePosition et SequenceCount offrent de nouvelles fonctionnalités pour extraire des séquences en utilisant le filtrage par motif.

Trouvez l'occurrence de la première date de sortie de Mathematica dans les chiffres de .

In[1]:=

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

Out[1]=

Modifiez cette date en un format adapté à la recherche.

In[2]:=

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

Out[2]=

Générez les 3 millions de premiers chiffres de .

In[3]:=

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

SequencePosition fournit les positions auxquelles la date mise en forme commence et se termine.

In[4]:=

pos = SequencePosition[pi, date]

Out[4]=

Elle n'apparaît qu'une seule fois dans les trois premiers millions des chiffres de π. Nous pouvons représenter cet événement d'une manière simple à l'aide d'un objet 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]=

Essayez d'autres dates et trouvez votre jour ici !