Lisp рекурсивная функция, возвратный список

Question

знаю, что это вопрос новичков. Прошу прощения заблаговременно. Я пишу рекурсивную функцию, которая возвращает число «O в данном списке

(defun garde-o (liste) 
    (cond 
     ((not liste) 0) 
     ((equal (car liste) 'o) (+ 1 (garde-o(cdr liste))) ) 
     ((garde-o(cdr liste)) ) 
    ) 
) 

Вместо возвращении количества встречаемости я хотел бы вернуть данный список с только» о.

Как что:

(Гард-о «(AOX & посвататься)) должен возвращать => (ооо)

Я не хочу, чтобы использовать поп, толчок, набор ... просто Я не могу найти, чтобы вернуть это.

Answer 1

Ваша текущая версия возвращает число, которое увеличивается на каждую рекурсию. Поэтому ваша предлагаемая версия должна работать, создавая список, расширяя его для каждой рекурсии.

Заменить 0 на ‘() и + 1 с cons ‘o.

Answer 2

Вы очень близки,

(defun garde-o (liste) 
(cond ((not liste) nil) 
    ((equal (car liste) 'o) (cons (car liste) (garde-o (cdr liste)))) 
    ((garde-o (cdr liste))))) 

Использование: (garde-o '(a o x & w o)) => (о о)

Вам просто нужно выбрать на вашем идентифицированного автомобиля.