Quel est le pays qui possède cette boîte de délimitation ?

Dessinez des rectangles de latitude et de longitude autour de 10 pays choisis au hasard. Combien d'entre eux reconnaissez-vous sans voir leur forme réelle ?

Prenez la liste de tous les pays.

In[1]:=

Length[countries = EntityList[EntityClass["Country", All]]]

Out[1]=

Choisissez 10 d'entre eux au hasard mais ne montrez pas leurs noms !

In[2]:=

sample10 = RandomSample[countries, 10];

Quels sont les pays qui possèdent ces boîtes de délimitation géographique ?

In[3]:=

GeoGraphics[{EdgeForm[Red], GeoBoundsRegion /@ sample10}, GeoBackground -> "StreetMapNoLabels", GeoRange -> "World"]

Out[3]=

Cliquez ici pour savoir combien vous en avez reconnu.

In[4]:=

{Entity["Country", "Morocco"], Entity["Country", "India"], Entity["Country", "Uruguay"], Entity["Country", "Niger"], Entity["Country", "Vietnam"], Entity["Country", "Tajikistan"], Entity["Country", "Hungary"], Entity["Country", "Madagascar"], Entity["Country", "Bahamas"], Entity["Country", "Indonesia"]}