> 1 <

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

ksun

Members


Статус

6 сообщений

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

#5409   2011-12-28 13:33 GMT+3 часа(ов)      
Есть список и некоторый объект. Написать функцию, которая возвращает новый список, в котором объект замещает первый элемент списка, если первый элемент списка и объект является атомами, последний элемент списка - иначе.

bokunopico

Members


Статус

54 сообщений

Где: Russia Нижний Новгород
Род занятий:
Возраст:

#5416   2011-12-29 02:54 GMT+3 часа(ов)      
 
(defun foo (obj L)
(if (and L (atom (car L)) (atom obj))
(cons obj (cdr L))
(car (last L))))
 
> (foo 4 '(1 2 3))
(4 2 3)
> (foo '(4) '(1 2 3))
3
> (foo 4 '())
NIL
 

ksun

Members


Статус

6 сообщений

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

#5418   2011-12-29 03:07 GMT+3 часа(ов)      
нет слов, выручил, спасибо
> 1 <


Онлайн :

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