#-(and) "
P82 (*) Cycle from a given node

    Write a predicate cycle(G,A,P) to find a closed path (cycle) P
    starting at a given node A in the graph G. The predicate should
    return all cycles via backtracking.

"
(load "p80.lisp")
(load "p81.lisp")


(defmethod cycle ((g graph) node)
  "Return a list of all the cycles passing by NODE."

  )


;;;; THE END ;;;;
ViewGit