> 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 <


Онлайн :

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