Найти сумму первых n положительных элементов одномерного числового массива, число n вводиться с клавиатуры

(reduce #'+ (remove-if-not #'plusp xs) :end n)

(defun sum-n-elms (w n)
  (cond ((zerop n) 0)
        ((plusp (car w)) (+ (car w) (sum-n-elms  (cdr w) (1- n))))
        (t (sum-n-elms (cdr w) n))))
 
> (sum-n-elms '(-10 -10 1 2 3 4) 2)
3
> (sum-n-elms '(-10 -10 1 2 3 4) 4)
10

(defun F (l n)
    (let* ((lst (remove-if 'minusp l))
          (new-n (- (length lst) n))
          (res (remove-if 'numberp lst :count new-n :from-end t)))
        (apply '+ res)))
 
(f '(-10 -10 1 2 3 4) 2)
 
==> 3
 
(f '(1 2 -3 4 5 -6 7 -8 -9 10 -11 12 -13) 4)
 
==> 12

(defun task (n lst)
  (let ((clst (remove-if-not #'plusp lst)))
   (if (> n (length clst)) 
       (apply '+ clst)
       (apply '+ (subseq clst 0 n)))))
 
==> task
 
(task 5 '(1 2 3 -1 -2 0 0 6 7 8 -3 -7))
 
==> 19

(defun F (l n &optional s)
    (cond
        ((or (null l) (zerop n)) (apply '+ s))
        ((minusp (car l)) (F (cdr l) n s))
        (t (F (cdr l) (- n 1) (push (car l) s)))))
 
(f '(1 2 -3 4 5 -6 7 -8 -9 10 -11 12 -13) 4)
 
==> 12