Find a Hamiltonian cycle in a graph returning it as a list of edges or an empty list when none exists
FindHamiltonianCycle[g]
FindHamiltonianCycle[g, k]
FindHamiltonianCycle[{v -> w, …}, …]
FindHamiltonianCycle[{1 -> 2, 2 -> 3, 3 -> 1, 1 -> 3, 3 -> 4, 4 -> 1}]
→ {{1 2, 2 3, 3 4, 4 1}}cycle = First[FindHamiltonianCycle[g]]
→ gShallow[cycle = First[FindHamiltonianCycle[g]]]
→ Shallow[g]