Функция реверсирования объектов списка

@andrew0302 · Регистрация: 08.12.2018

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

Нужно написать функцию реверсирования объектов списка, используя конструкции локальных определений: LET и
LAMBDA.

@Catstail · 06.01.2022, 08:48

Не вполне понятно, что нужно... Как вариант:

Lisp

(defun task (list)
  (if (null list) nil
      (cons 
        ((lambda (x f) (if (null x) nil (append (funcall f (cdr x) f) (list (car x)))))
         (car list)
         (lambda (x f) (if (null x) nil (append (funcall f (cdr x) f) (list (car x))))))
        (task (cdr list)))))
 
 
(task '((1 2 3) (4 5 6) (7 8 9)))
==> ((3 2 1) (6 5 4) (9 8 7))

@_sg · 06.01.2022, 09:43

Варианты:

Lisp

(defun esrever (w)
  (let ((a (car w)) (d (cdr w)))
    (when w (append (esrever d) (list a)))))
 
> (esrever '(a b c))
(C B A)

Lisp

(defun esrever (w)
  (when w ((lambda (a d)
             (append (esrever d) (list a)))
           (car w) (cdr w))))
 
> (esrever '(a b c))
(C B A)

@andrew0302 0 / 0 / 0 Регистрация: 08.12.2018 Сообщений: 2
		1
	Функция реверсирования объектов списка 05.01.2022, 23:17. Показов 473. Ответов 2 Метки lisp (Все метки) Нужно написать функцию реверсирования объектов списка, используя конструкции локальных определений: LET и LAMBDA. 0

	06.01.2022, 09:43