> 1 <

Автор Сообщение

Дуська

Members


Статус

21 сообщений

Где: Ukraine
Род занятий:
Возраст:

#6958   2013-03-22 22:04 GMT+3 часа(ов)      
Проверить, принадлежит ли элемент списку.

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 67

#6966   2013-03-22 23:37 GMT+3 часа(ов)      
 
(defun task (lst a)
(cond ((null lst) nil)
((eq a (car lst)) t)
(t (task (cdr lst) a))))
==> task
(task '(q w e r t y) 'e)
==> T
(task '(q w e r t y) 'x)
==> NIL
 
> 1 <


Онлайн :

0 пользователь(ей), 53 гость(ей) :