Определить рекурсивную функцию, возвращающую последний элемент списка

@aki295 · Регистрация: 11.12.2011

Определить рекурсивную функцию, возвращающую последний элемент списка.

вот что сделано

Lisp

(defun last (xs)
  (if (null (cdr xs))
      xs
      (last (cdr xs))))

Но тут получается что последний элемент выводится ввиде списка, а нужно чтоб просто выводился элемент, помогите исправить, заранее спасибо!

@Nameless One · 22.12.2011, 08:56

aki295, вместо строки 3 напиши "(car xs)" (без кавычек)

@aki295 · 22.12.2011, 09:09 **[ТС]**

Спасибо!

@MahovIV · 06.03.2016, 19:25

Сообщение от Nameless One

aki295, вместо строки 3 напиши "(car xs)" (без кавычек)

Но ведь в таком виде

Lisp

(defun last (xs)
(if (null (cdr xs))
(car xs)
(last (cdr xs))))

код в LispWorks не работает. Почему?

@helter · 06.03.2016, 19:35

Наверно, он не просто не работает (не виснет, система не падает), а выкидывает в дебаггер, где пишет осмысленные сообщения об ошибке?

В лиспе нельзя переопределять стандартные функции. last — стандартная функция.

@MahovIV · 06.03.2016, 19:48

Спасибо получилось.

@_sg · 06.03.2016, 20:16

как вариант:

Lisp

(defun lastt (w)
  (if (cdr w) (lastt (cdr w)) (car w)))
 
> (lastt '(a b c))
C
> (lastt '())
NIL

@Nameless One · 06.03.2016, 20:30

Closures to rescue!

Lisp

(defun my-last (lst)
  (reduce (lambda (x y)
            (return-from my-last x))
          lst :initial-value nil :from-end t))

@Catstail · 06.03.2016, 21:37

Но здесь же нет рекурсии... Или я ошибаюсь? Тогда уж без затей:

Lisp

1 2	(defun last! (lst) (reduce (lambda (a x) x) lst))

@Nameless One 5827 / 3478 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	22.12.2011, 08:56	2
	aki295, вместо строки 3 напиши "(car xs)" (без кавычек) 1

@aki295 0 / 0 / 0 Регистрация: 11.12.2011 Сообщений: 8
	22.12.2011, 09:09 [ТС]	3
	Спасибо! 0

@helter 4520 / 3514 / 358 Регистрация: 12.03.2013 Сообщений: 6,037
	06.03.2016, 19:35	5
	Наверно, он не просто не работает (не виснет, система не падает), а выкидывает в дебаггер, где пишет осмысленные сообщения об ошибке? В лиспе нельзя переопределять стандартные функции. last — стандартная функция. 0

@MahovIV 6 / 7 / 4 Регистрация: 17.09.2013 Сообщений: 337
	06.03.2016, 19:48	6
	Спасибо получилось. 0

Опции темы