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]:=
![Click for copyable input](assets.es/find-a-sequence-in-the-digits-of-pi/In_26.png)
EntityValue[
Entity["ProgrammingLanguage", "WolframLanguage"], "DateIntroduced"]
Out[1]=
![](assets.es/find-a-sequence-in-the-digits-of-pi/O_36.png)
Cambie esta fecha a un formato adecuado para la búsqueda.
In[2]:=
![Click for copyable input](assets.es/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.es/find-a-sequence-in-the-digits-of-pi/O_37.png)
Genere los primeros tres millones de dígitos de .
In[3]:=
![Click for copyable input](assets.es/find-a-sequence-in-the-digits-of-pi/In_28.png)
pi = Characters[ToString@N[Pi, 3000000]];
SequencePosition da las posiciones en las cuales la fecha formateada empieza y termina.
In[4]:=
![Click for copyable input](assets.es/find-a-sequence-in-the-digits-of-pi/In_29.png)
pos = SequencePosition[pi, date]
Out[4]=
![](assets.es/find-a-sequence-in-the-digits-of-pi/O_38.png)
É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.
muestre la entrada completa de Wolfram Language
In[6]:=
![Click for copyable input](assets.es/find-a-sequence-in-the-digits-of-pi/In_31.png)
Grid[Partition[chars, 8]]
Out[6]=
![](assets.es/find-a-sequence-in-the-digits-of-pi/O_39.png)
Intente otras fechas y encuentre su día aquí.