Obtenha datas de nascimento, imagens e outras informações a partir de nomes de pessoas 

Construa uma foto de grupo dos signatários da Declaração de Independência dos EUA.

Extraia os nomes dos signatários da parte de baixo do texto da Declaração de Independência dos EUA.

In[1]:=

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

Out[1]=

Obtenha a data em que a Declaração de Independência foi assinada.

In[2]:=

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

Out[2]=

Interprete os nomes dos signatários para obter objetos Entity que representem pessoas específicas, verificando que elas viveram quando a Declaração de Independência foi assinada.

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;

Reúna imagens dos signatários.

In[4]:=

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

Encontre um arranjo retangular adequado para as fotos e junte-as em uma única imagem.

In[5]:=

X FactorInteger[Length[pictures]]

Out[5]=

In[6]:=

X ImageAssemble[Partition[pictures, 17]]

Out[6]=