Obtenga fechas de nacimiento, imágenes y otra información a partir de los nombres de personas 

Cree una foto de grupo de los firmantes de la Declaración de Independencia.

Extraiga los nombres de los firmantes de la parte inferior del texto de la Declaración de Independencia.

In[1]:=

X names = Interpreter[DelimitedSequence["String", "; "]][ StringTake[ ExampleData[{"Text", "DeclarationOfIndependence"}], -908]]

Out[1]=

Obtenga la fecha en la que la Declaración de Independencia fue firmada.

In[2]:=

X date = Interpreter["ComputedDate"][ "when was the Declaration of Independence signed?"]

Out[2]=

Interprete los nombres de los firmantes para obtener objetos Entity que representan personas específicas, verificando que ellos vivieron cuando la Declaración de Independencia fue firmada.

In[3]:=

X interpreted = Interpreter["Person", MatchQ[#, Entity["Person", __]] && With[{ birthdate = EntityValue[#, EntityProperty["Person", "BirthDate"]], deathdate = EntityValue[#, EntityProperty["Person", "DeathDate"]] }, MatchQ[birthdate, _DateObject] && MatchQ[deathdate, _DateObject] && DateValue[birthdate, "Year"] < DateValue[date, "Year"] <= DateValue[deathdate, "Year"]] & ] /@ names;

Reuna imágenes de los firmantes.

In[4]:=

X pictures = ConformImages[ DeleteMissing[ EntityValue[Cases[interpreted, Except[_Failure]], EntityProperty["Person", "Image"]]], Tiny];

Encuentre una disposición rectangular adecuada de las fotos y colóquelas en una sola imagen.

In[5]:=

X FactorInteger[Length[pictures]]

Out[5]=

In[6]:=

X ImageAssemble[Partition[pictures, 17]]

Out[6]=