Lisp.Ru - Форумы - Описать именованную функцию

> 1 <

Автор	Сообщение
lastofpudge Members 1 сообщений Где: Ukraine Род занятий: Возраст:	#5421 2011-12-30 15:19 GMT+3 часа(ов)
	Здраствуйте помогите пожалуйста решить след. задачу: Описать именованную функцию (DEFUN): Есть список. Найти сумму первого, третьего и седьмого елементов списка, если указанные элементы - числа, вернуть последний элемент списка - иначе. Спасибо.

megamanx Members 307 сообщений Где: Russia Род занятий: Возраст:	#5423 2011-12-30 19:24 GMT+3 часа(ов)
	(defun foo(L) (if (< (length L) 7) nil (let ((x (list (car L) (caddr L) (nth 6 L)))) (if (every #'numberp x) (apply #'+ x) (car (last L))))))
	I wish I'd made you angry earlier

> 1 <

lastofpudge