Find a Four-Coloring of a Map of Europe 

Find the neighbors of each European country.

In[1]:=
Click for copyable input
X

These are the neighbors of Austria.

In[2]:=
Click for copyable input
X
Out[2]=

Encode the four possible colors as two Booleans per country.

In[3]:=
Click for copyable input
X
In[4]:=
Click for copyable input
X

Express the condition that all pairs of bordering countries have different colors as a logical expression.

In[5]:=
Click for copyable input
X

Compute a solution to the four-color problem.

In[6]:=
Click for copyable input
X

Form the coloring.

In[7]:=
Click for copyable input
X
Out[7]=

Color each country according to the coloring found.

In[8]:=
Click for copyable input
X
Out[8]=
de es ja pt-br zh