> 1 <

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

Дуська

Members


Статус

21 сообщений

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

#6954   2013-03-22 22:01 GMT+3 часа(ов)      
В заданном списке поменять местами каждый элемент, стоящий
на четном месте, с предыдущим.
Пример: (1 2 3 4 5 6 7) => (2 1 4 3 6 5 7)

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 67

#6970   2013-03-22 23:51 GMT+3 часа(ов)      
 
(defun task (lst)
(cond ((null (cdr lst)) lst)
(t (cons (cadr lst) (cons (car lst) (task (cddr lst)))))))
==> task
(task '(1 2 3 4 5 6))
==> (2 1 4 3 6 5)
(task '(1 2 3 4 5 6 7))
==> (2 1 4 3 6 5 7)
 
> 1 <


Онлайн :

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