Напишите функцию (f X Y), которая возвращает список Z - "пересечение" списков X г: Y, т.е. список, содержащий их общие

(defun f (x y)
  (cond ((null x) nil)
        ((null y) nil)
        ((member (car x) y) 
         (let ((cx (- (length x)(length (remove (car x) x))))
               (cy (- (length y)(length (remove (car x) y)))))
              (append (replicate (car x) (min cx cy)) (f (remove (car x) (cdr x)) (remove (car x) y)))))
        (t (f (cdr x) y))))
 
==> F
 
(f '(1 2 3 1 2 3) '(2 2 2 2 3 3))
 
==> (2 2 3 3)

(define (some val lst [lst2 lst])
   (define (in-some val lst)
         (if (empty? val)
                val
               (if (empty? lst)
           (in-some (rest val) lst2)
           (if (equal? (first val) (first lst))
               (cons (first val) (in-some val (rest lst)))
               (in-some val (rest lst))))))
  (in-some val lst))
 
(some '(1 2 3 4) '(10 1 20 2 4 40))
 
=> '(1 2 4)

(define (some val lst [lst2 lst])
   (define (in-some val lst)
         (if (empty? val)
                val
               (if (empty? lst)
           (in-some (cdr val) lst2)
           (if (equal? (car val) (car lst))
               (list* (car val) (car lst) (in-some val (cdr lst)))
               (in-some val (cdr lst))))))
  (in-some val lst))
 
(some '(1 2 3 4) '(10 1 20 2 4 40))
 
=> '(1 1 2 2 4 4)

(defun f (X Y)
  (let ((Z))
    (mapcar #'(lambda (x)
        (when (member x Y)
          (push x Z)))
        X)
    (remove-duplicates Z)))
 
(defun foo (X Y)
  (remove-duplicates
   (loop for x in X
      when (member x Y)
      collect x)))