> 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 пользователь(ей), 31 гость(ей) :