Рекурсия в лиспе

[s2dentishe]

Добрый день!
Есть такое задание: необходимо из списка (a b c d e f g h i j k l m n) рекурсивно получить список (a c e f g h i j k l m n), т.е. убрать из него два первых четных элемента

(setq x '(a b c d e f g h i j k l m n) )
(defun f (l)
(cond
((null (cdr l)) nil)
(t (cons (car l) (f (cddr l))) )

)
)

(princ x)
(terpri)
(princ (f x))

преобразует список к виду (a c e g i k m)
подскажите один из вариантов как выйти из рекурсии после двух рекурсивных вызовов

[netrino]

Можно, например, добавить опциональную переменную, которая будет хранить кол-во исключённых символов, и когда она будет равна 2, прекращать вызов. Или же определить вложенную функцию, с использованием labels, которая будет принимать помимо списка ещё и счётчик.

(defun exclude-2 (a-list &optional (count 0))
  (cond
    ((null (cdr a-list)) nil)
    ((>= count 2)        a-list)
    (t (cons (car a-list) (exclude-2 (cddr a-list) (1+ count))))))

(defun exclude-2 (a-list)
  (labels ((exclude-wc (a-list count)
             (cond
               ((null (cdr a-list)) nil)
               ((>= count 2)        a-list)
               (t (cons (car a-list) (exclude-wc (cddr a-list) (1+ count)))))))
    (exclude-wc a-list 0)))

[s2dentishe]

спасибо!