Написать функцию, которая выдает в качестве результата предпоследний элемент списка, если он есть, а иначе NIL

@virtuos553 · Регистрация: 18.12.2012

Author24 — интернет-сервис помощи студентам

@korvin_ · 18.12.2012, 21:47

Lisp

(defun prelast (list)
  (cond
    ((null       list ) nil)
    ((null (cdr  list)) nil)
    ((null (cddr list)) (cadr list))
    (t (prelast (cdr list)))))

@Catstail · 18.12.2012, 21:52

Или так:

Lisp

(defun prelast (lst &optional (n (length lst)))
   (cond ((<= (length lst) 1) nil)
         ((= n 2) (car lst))
         (t (prelast (cdr lst) (- n 1)))))

@_sg · 19.12.2012, 00:02

Lisp

(defun almost-last (w)
  (cond  ((null (cddr w)) (when (cdr w) (car w)))
         ((almost-last (cdr w)))))
 
> (almost-last '(1 2))
1

Lisp

(defun almost-last (w) (when (cdr w) (car (last w 2))))
 
> (almost-last '(1 2 3 4))
3

Lisp

(defun almost-last (w) (cadr (reverse w)))
 
> (almost-last '(1 2))
1

@virtuos553 49 / 4 / 0 Регистрация: 18.12.2012 Сообщений: 247 Записей в блоге: 1
		1
	Написать функцию, которая выдает в качестве результата предпоследний элемент списка, если он есть, а иначе NIL 18.12.2012, 21:45. Показов 1374. Ответов 3 Метки нет (Все метки) Написать функцию, которая выдает в качестве результата предпоследний элемент списка, если он есть, а иначе NIL 0

	19.12.2012, 00:02