Вывести числа, которые делятся без остатка на 5 и не делятся на 7 и на 11

(defun task (a b &optional (r nil))
  (if (= a b) r (if (and (zerop (mod b 5)) (> (mod b 7) 0) (> (mod b 11) 0)) 
                      (task a (- b 1) (cons b r))
                      (task a (- b 1) r))))
 
==> TASK
 
(task 12 56)
 
==> (15 20 25 30 40 45 50)

(defun chosen (n m)
  (loop for e from n to m
        when (and (zerop (mod e 5))
                  (plusp (mod e 7))
                  (plusp (mod e 11)))
        collect e))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)

(defun chosen (n m)
  (cond ((> n m) nil)
        ((and (zerop (mod n 5))
              (plusp (mod n 7))
              (plusp (mod n 11))) (cons n (chosen (1+ n) m)))
        (t (chosen (1+ n) m))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)

(defun chosen (n m)
  (when (>= m n) (if (and (zerop (mod n 5))
                          (plusp (mod n 7))
                          (plusp (mod n 11)))
                     (cons n (chosen (1+ n) m))
                     (chosen (1+ n) m))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)

(defun chosen (n m &optional ac)
  (cond ((> n m) (nreverse ac))
        ((and (zerop (mod n 5))
              (plusp (mod n 7))
              (plusp (mod n 11))) (chosen (1+ n) m (cons n ac)))
        (t (chosen (1+ n) m ac))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)

(defun chosen (n m &optional ac)
  (cond ((> n m) ac)
        ((and (zerop (mod m 5))
              (plusp (mod m 7))
              (plusp (mod m 11))) (chosen n (1- m) (cons m ac)))
        (t (chosen n (1- m) ac))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)

(defun chosen (n m &optional ac)
  (if (> n m) ac
      (chosen n (1- m) (if (and (zerop (mod m 5))
                                (plusp (mod m 7))
                                (plusp (mod m 11)))
                           (cons m ac)
                           ac))))
 
> (chosen 12 56)
(15 20 25 30 40 45 50)