WOLFRAM

Wolfram Language & System Documentation Center

The Seven Bridges of Königsberg

The seven bridges of the city of Königsberg over the Pregel River cannot all be traversed in a single trip without doubling back, with the additional requirement that the trip ends in the same place it began.

    
Create a graph from lands and bridges connecting them:
Wolfram Language code: sevenbridge = \!\(\*GraphicsBox[«6»]\);
Verify whether there is a trip or not:
Wolfram Language code: EulerianGraphQ[sevenbridge]