Основы функционального программирования - ответы
Количество вопросов - 413
(lambda (xl) (cond (xl (cond ((eq x (car xl))xl)))))
(lambda (x xl) (cond (xl (cond ((equal x (car xl)) (eq (cadr xl) x))))))
(X List(X)) -> List(X)
(lambda (x xl) (cond (xl (cond ((eq x (car xl))xl)))))
(lambda (x xl) (cond (xl (cond ((eq x (car xl))xl)))))
(lambda (x xl) (cond (xl (eq x (car xl)) )) )
(lambda (x xl) (cond (xl (cond ((eq x (car xl))T)))))
(defun Assoc (x al) (cond (al(cond ((eq (x (caar al))) (car al))))
(lambda (x xl) (cond (xl (cond ((eq x (car xl))(caadr xl))))))
(defun Assoc (x al) (cond (al(cond ((eq (x (caar al))) (car al))))
(defun Assoc (x al) (cond (al(cond ((eq (x (caar al))) (car al))))
(lambda (x xl) (cond (xl (cond ((eq x (car xl))xl)))))
(lambda (x xl) (cond (xl (cond ((eq x (car xl))T)))))