Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Lisp] HElp me!!!

Автор: EPSV 25.4.2008, 07:05

Здравствуйте!!! помогите пожалуйста решить несколько задач в LISP
1) поменять местами четные и нечетные элементы в списке
2) удалить из списка каждый второй элемент.
Заранее спасибо!!!! smile

Автор: VH_ 25.4.2008, 15:22

Код


(defun CHANGEODDEVEN (L)
 (cond
  ((null L) nil)
  ((null (cdr L)) L)
  (T (cons (cadr L) (cons (car L) (CHANGEODDEVEN (cddr L)))))))

Добавлено через 6 минут и 23 секунды
Хювёнен-Сеппянен "Мир Лиспа" т.1:

Код


(defun INTERLEAVE (L) ; в оригинале КАЖДЫЙ-ВТОРОЙ
 (cond
  ((null L) nil)
  ((null (cdr L)) L)
  (T (cons (car L) (INTERLEAVE (cddr L))))))