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

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

Форум программистов > LISP > Удаление предпоследнего элемента

Автор: SkyFallenAngel 9.5.2011, 20:21

Доброго времени суток.
Помогите пожалуйста с задачей: нужно удалить предпоследний элемент в списке.
Благодарю за помощь.

Автор: _sg 22.12.2012, 01:41

Код


(defun sine-penult (w)
  (if (cddr w)
      (cons (car w) (sine-penult (cdr w)))
      (when (cdr w) (list (cadr w)))))

> (sine-penult '(1 2 3 4))
(1 2 4)

Автор: _sg 25.4.2014, 16:37

Код


(defun sine-penultimate (w)
  (if (cddr w)
      (cons (car w) (sine-penultimate (cdr w)))
      (when (cdr w) `(,(cadr w)))))

> (sine-penultimate '(1 2 3 4))
(1 2 4)