Каким образом можно использовать функции высокого порядка

;функция поиска в ширину
(defun psh(nv nov y e)
   (cond ((null nov)nil)
     ((member y nov)t)
     (t(psh (append nv nov) (psmv nv nov e) y e))))
 
;функция перебора вершин
(defun rv(1v v e)
   (cond ((null v) t)   
     ((path 1v (first v) e)(rv 1v (rest v) e))(t nil)))

;функция проверки существования пути
(defun path(x y e)
   (psh nil (list x) y e))  
 
;функция проверки принадлежности смежных вершин
(defun smv(x y nv nov)
   (cond ((not (member x nov))nil)  
     ((member y nov)nil)
     ((member y nv) nil)(t t)))
 
;функция поиска смежных вершин
(defun psmv(nv nov e)
   (cond ((null e)nil)
     ((smv(first(first e))(first(rest(first e)))nv nov)
        (cons (first(rest(first e)))(psmv nv nov (rest e))))
     ((smv(first(rest(first e)))(first(first e)) nv nov)
      (cons (first(first e)) (psmv nv nov (rest e))))
     (t(psmv nv nov (rest e)))))
 
;функция поиска в ширину
(defun psh(nv nov y e)
   (cond ((null nov)nil)
     ((member y nov)t)
     (t(psh (append nv nov) (psmv nv nov e) y e))))
 
;функция перебора вершин
(defun rv(1v v e)
   (cond ((null v) t)   
     ((path 1v (first v) e)(rv 1v (rest v) e))(t nil))) 
 
;функция определения связанности граф
(defun graf(v e)
   (rv (first v) (rest v) e))

;; найти первую вершину, связанную с v и непосещенную
 
(defun search (v graph chk)  ;; v - текущая вершина; graph - граф; chk - список уже посещенных вершин
  (dolist (i graph nil)
    (when (and (eq v (car i)) (not (member (cadr i) chk))) (return (cadr i)))
    (when (and (eq v (cadr i)) (not (member (car i) chk))) (return (car i)))))
 
;; обход в глубину (с первой вершины)
;; функция возвращает список посещенных вершин
 
(defun dfs (graph &optional (chk '(1)) (stack '(1)))
  (let ((w (if (null stack) nil (search (car stack) graph chk))))
       (cond ((and (null w) (null stack)) chk)
             ((null w) (dfs graph chk (cdr stack)))
             (t (dfs graph (cons w chk) (cons w stack))))))
 
;; проверка связности
 
(defun is-connected (graph)
  (let ((vlist (setof (apply 'append graph))))  ;; список вершин без повторений
     (= (length vlist) (length (dfs graph)))))   ;; сравнение длины списка посещенных вершин и исходного
                                                            ;; списка вершин. Если длины совпадают - граф связный.
 
;; а теперь проверка:
 
(is-connected '((1 2) (1 3) (2 4) (3 4) (4 5) (4 6) (4 7) (5 6) (6 7) (7 8) (7 9) (8 10) (8 11) (9 10) (9 11)))
 
==> T ;; это связный граф
 
;; выбрасываем 4-ю вершину и граф становится несвязным:
 
(is-connected '((1 2) (1 3) (5 6) (6 7) (7 8) (7 9) (8 10) (8 11) (9 10) (9 11)))
 
==> NIL