Geburtstage, Bilder und andere Informationen von Personennamen ableiten 

Erstellen Sie ein Gruppenfoto der Personen, die die Unabhängigkeitserklärung unterzeichnet haben.

Extrahieren Sie die Namen dieser Personen am Ende des Textes der Unabhängigkeitserklärung.

In[1]:=

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

Out[1]=

Ermitteln Sie das Datum, an dem die Unabhängigkeitserklärung unterzeichnet wurde.

In[2]:=

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

Out[2]=

Interpretieren Sie die Namen der Unterzeichner, um Entity-Objekte zu erhalten, die bestimmte Personen repräsentieren. Überprüfen Sie, dass diese Personen zum Zeitpunkt der Unterzeichnung der Unabhängigkeitserklärung gelebt haben.

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;

Suchen Sie Bilder der Unterzeichner.

In[4]:=

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

Ermitteln Sie, wie sich die Bilder passend in einem Rechteck anordnen lassen und kombinieren Sie diese zu einem einzigen Bild.

In[5]:=

X FactorInteger[Length[pictures]]

Out[5]=

In[6]:=

X ImageAssemble[Partition[pictures, 17]]

Out[6]=