查找图中的所有循环[关闭]

Question

任务：在无向图中找出所有不重复的圈。我需要在不使用循环语句的情况下编写一个 lisp 程序，即递归遍历图形。

并且我尝试写了一个图的深度遍历函数（我觉得广度遍历在这里行不通），但是没有成功。实现这个的最佳方法是什么？

input:    
(SETQ MAP '(
(A (C E))
(B (C D))
(C (B A D))
(D (E B C))
(E (A D))
 )
)
output: ACDE,ACBDE, BCD