Написать функцию,которая выделяет элементы списка, большие заданного числа

(defun filter> (lst n)
  (if lst (if (> (car lst) n) (cons (car lst) (filter> (cdr lst) n)) (filter> (cdr lst) n)) nil))
 
==> filter>
 
(filter> '(1 2 3 4 5 6 7 8 9 10 2 3) 5)
 
==> (6 7 8 9 10)

(defun bigger-than-this (w n)
  (cond ((null w) nil)
        ((> (car w) n) (cons (car w) (bigger-than-this (cdr w) n)))
        ((bigger-than-this (cdr w) n))))
 
> (bigger-than-this '(1 2 3 1 2 3 4) 2)
(3 3 4)

(defun bigger-than-this (w n &optional ac)
  (cond ((null w) (reverse ac))
        ((> (car w) n) (bigger-than-this (cdr w) n (cons (car w) ac)))
        ((bigger-than-this (cdr w) n ac))))
 
> (bigger-than-this '(1 2 3 1 2 3 4) 2)
(3 3 4)

(defun bigger-than-this (w n &optional ac &aux (a (car w)))
  (cond ((null w) (reverse ac))
        ((> a n) (bigger-than-this (cdr w) n (cons a ac)))
        ((bigger-than-this (cdr w) n ac))))
 
> (bigger-than-this '(1 2 3 1 2 3 4) 2)
(3 3 4)

(defun bigger-than-this (w n &optional ac &aux (a (car w)))
  (if w 
      (bigger-than-this (cdr w) n (if (> a n) (cons a ac) ac))
      (reverse ac)))
 
> (bigger-than-this '(1 2 3 1 2 3 4) 2)
(3 3 4)

(defun bigger-than-this (w n)
  (loop for a in w  when (> a n) collect a))
 
> (bigger-than-this '(1 2 3 1 2 3 4) 2)
(3 3 4)

(defun bigger-than-this (w n)
  (remove-if-not #'(lambda (a) (> a n)) w))
 
> (bigger-than-this '(1 2 3 1 2 3 4) 2)
(3 3 4)

(defn task (l n) (filter (lambda (x) (> x n)) l))