Определить, является ли направленный граф ациклическим - Lisp - Ответ 3102662

(defmacro aand (&rest forms)
  (or (null forms)
      `(let ((it ,(car forms)))
         (and it
              (aand ,@(cdr forms))))))
 
(defun acyclic-graph-p (graph)
  (or (null graph)
      (aand (leaf-node graph)
            (acyclic-graph-p
             (remove it graph
                     :key #'cdr)))))
 
(defun leaf-node-p (vertex graph)
  (not (assoc vertex graph)))
 
(defun leaf-node (graph)
  (cdr (find-if #'(lambda (edge)
                     (leaf-node-p (cdr edge) graph))
                 graph)))

CL-USER> (acyclic-graph-p '((1 . 2) (2 . 3) (6 . 3) (2 . 4) (4 . 6) (4 . 5) (5 . 6)))
T
CL-USER> (acyclic-graph-p '((1 . 2) (2 . 3) (6 . 3) (2 . 4) (6 . 4) (4 . 5) (5 . 6)))
NIL