人の名前から誕生日，画像，その他の情報を取得する 

独立宣言に署名した人たちの集合写真を構築する．

独立宣言のテキストの下部から署名者の名前を抽出する．

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]=