I
n
[
]
:
=
g=Graph[{1
2, 1
2, 1
3, 1
3, 2
3, 2
3, 2
4, 2
4, 3
4, 3
4}];
I
n
[
]
:
=
FindEulerianCycle[g]
O
u
t
[
]
=
{
{
1
3
,
3
4
,
4
2
,
2
4
,
4
3
,
3
2
,
2
3
,
3
1
,
1
2
,
2
1
}
}