Рекурсия: найти количество элементов числового списка, которые больше первого элемента (Clisp)

(defun cnt> (w)
  (cnt (car w) (cdr w)))
 
(defun cnt
    (z w &aux (a (car w)) (d (cdr w)))
  (cond ((null w) 0)
        ((> a z) (1+ (cnt z d)))
        ((cnt z d))))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun cnt> (w)
  (cnt (car w) (cdr w)))
 
(defun cnt (z w)
  (if w (+ (if (> (car w) z) 1 0)
           (cnt z (cdr w)))
      0))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun cnt> (w)
  (labels ((cnt (z v)
             (if v (+ (if (> (car v) z) 1 0)
                      (cnt z (cdr v)))
                 0)))
    (cnt (car w) (cdr w))))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun cnt> (w &optional (z (car w)))
  (if w (+ (if (> (car w) z) 1 0)
           (cnt> (cdr w) z))
      0))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun cnt> (w &aux (z (car w)))
  (loop for a in w 
        when (> a z) count a))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun cnt> (w &aux (z (car w)))
  (count-if #'(lambda (a) (> a z)) w))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun cnt> (w &optional (z (car w)) (n 0))
  (if w (cnt> (cdr w)
              z
              (+ (if (> (car w) z) 1 0)
                 n))
      n))
 
> (cnt> '(3 -5 -1 4 8 3 4))
3

(defun task (list &optional (f nil) (c 0))
   (if (null list) c
       (if (null f) (task (cdr list) (car list) 0)
           (if (> (car list) f) (task (cdr list) f (+ c 1))
                                (task (cdr list) f c)))))  
 
(task '(2 1 2 3 4 5 1))
==> 3