Требуется реализовать систему антиплагиат

;; вспомогательная функция (нарезает список на 8-атомные отрезки):
 
(defun mkseq (lst)
  (cond ((< (length lst) 8) nil)
        ((= (length lst) 8) (list lst))
        (t (cons (subseq lst 0 8) (mkseq (cdr lst))))))
 
==> mkseq
 
(mkseq '(q w e r t y u i o p))
 
==> ((q w e r T y u i) (w e r T y u i o) (e r T y u i o p))
 
;; вспомогательная функция (проверяет, находится ли один список целиком в другом списке):
 
(defun chk-seq (lst patt)
  (cond ((> (length lst) (length patt)) nil)
        ((equal (subseq patt 0 (length lst)) lst) t)
        (t (chk-seq lst (cdr patt)))))
 
==> chk-seq
 
(chk-seq '(q w e r t y) '(z x c v q w e r t y u i o k))
 
==> T
 
(chk-seq '(z w e r t y) '(z x c v q w e r t y u i o k))
 
==> NIL
 
;; решение задачи (проверка списка lst по базе списов base)
 
(defun task (lst base)
  (let ((n 0) (p 0))
       (dolist (patt base p)
            (setq n (+ n 1))
            (when (chk-seq lst patt) (return n)))))
 
==> task
 
(task '(1 2 3 4 5 6 7 q) '((q w e r t y u i o p) (1 2 3 4 5 6 7 8 9 a s d) (g h v b v x c d s e r t)))
 
==> 0
 
(task '(1 2 3 4 5 6 7 8) '((q w e r t y u i o p) (1 2 3 4 5 6 7 8 9 a s d) (g h v b v x c d s e r t)))
 
==> 2

(defun task (lst base)
   (let ((n 0) (p 0))  ;; две локальные переменные n и p
   (dolist (patt base p) ;; переменная patt последовательно "пробегает" всю базу
   (setq n (+ n 1)) ;; переменная n отражает номер записи базы
   (when (chk-seq lst patt) (return n)))))  ;; если нашли совпадение - возвращаем номер записи базы

 (defun mkseq (lst)
 
  (cond ((< (length lst) 8) nil)
 
        ((= (length lst) 8) (list lst))
 
        (t (cons (subseq lst 0 8) (mkseq (cdr lst))))))
MKSEQ