没有有简单办法找出列表中的回环组合

Question

有一个列表list

list = {{1, 2}, {1, 3}, {2, 3}, {2, 4}, {3, 1}, {3, 4}}

目前是这么找的，结果有三个回环的组合，但感觉那个Select的criterion写得很累赘

Select[Permutations[
  list, {3}], #[[1, 2]] == #[[2, 1]] && #[[2, 2]] == #[[3, 
      1]] && #[[3, 2]] == #[[1, 1]] &]

结果

{{{1, 2}, {2, 3}, {3, 1}}, {{2, 3}, {3, 1}, {1, 2}}, {{3, 1}, {1, 
   2}, {2, 3}}}

 

Answer 1

有。(*凑12字符专用*)

补充：

Select[ConnectedComponents[Rule @@@ list], Length@# == 3 &]

二次补充：

data = {{1, 3}, {1, 5}, {1, 5}, {2, 4}, {2, 6}, {3, 5}, {4, 6}};
g = Graph[UndirectedEdge @@@ data, VertexLabels -> "Name"];
ConnectedComponents@g
FindCycle@g

ConnectedComponents和FindCycle存在较大的差异，所以实际选择中需要根据是否有向、“回环”的定义等具体情况进行考虑。

Comments

我竟无言以对～～～～～～～

---

这补充有意思。(*凑12字符专用*)

---

愁。回答还是12字限制，评论改成6字限制了。

Answer 2

FindCycle[Graph[DirectedEdge @@@ list], {3}, All]

其实感觉弄成Graph输出就挺直观的，如果需要给出的那种输出格式可以转换：

Table[RotateLeft[#, i], {i, 0, 2}] & /@ % /. DirectedEdge -> List