Задача на ЛИСП

[Alexey123]

Помогите пожалуйсиа с задачей на ЛИСП
1.) Определите рекурсивную функцию MBR (от двух аргументов) вы-бора конкретного члена из списка имен. При определении функции ис-пользуйте следующий алгоритм:
а. Если список - NULL, возврат NIL. Имя не является членом нулево-го списка.
b. Если имя - EQL с CAR от списка(имя сопоставимо с CAR от спис-ка), то возврат Т. Имя является первым членом списка.
c. Если имя не является EQL с CAR от списка, то возврат - значение возвращенное процедурой, примененной к CDR от списка .Имя является членом списка тогда, когда оно является членом CDR от списка .

[Stilet]

Могу конечно ошибаться, ЛИСП недавно стал изучать плотно, но предполагаю что-то вроде этого:

(defun foo (a b)
 (cond (
           (EQL (car b) a) (T)
           (EQ (cdr b) nil) (nil)
           (foo a (cdr b))
          )
 )
)

[netrino]

Немного поправлю:

(defun mbr (name nameList)
  (cond
    ((eq nameList nil) nil)
    ((eql name (car nameList)) t)
    (t (mbr name (cdr nameList)))))