Qual país está delimitado neste formato?

Desenhe retângulos de latitude-longitude de cerca de dez países escolhidos de forma aleatória. Quantos você consegue reconhecer sem realmente ver seus formatos reais?

Pegue a lista de todos os países.

In[1]:=

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

Out[1]=

Escolha 10 aleatoriamente, mas não mostre seus nomes!

In[2]:=

sample10 = RandomSample[countries, 10];

Qual país está delimitado neste formato diferente?

In[3]:=

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

Out[3]=

Clique aqui para ver quantos você conseguiu reconhecer.

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"]}