从人的名字获取出生日期、图像和其他信息 

创建《独立宣言》签署人的相片组.

从《独立宣言》最下方提取签署人的姓名.

In[1]:=

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

Out[1]=

获取《独立宣言》签署的日期.

In[2]:=

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

Out[2]=

将签署人姓名解释为 Entity 对象来代表特定人物，验证其在《独立宣言》签署时在世.

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;

收集签署人图像.

In[4]:=

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

找到合适的长方形排列并将照片集合在一张图像内.

In[5]:=

X FactorInteger[Length[pictures]]

Out[5]=

In[6]:=

X ImageAssemble[Partition[pictures, 17]]

Out[6]=