Замена obj1 на obj2 во всех вложениях списка

@cb7777 · Регистрация: 16.01.2013

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

Доброе время суток, пишу функцию замены obj1 на obj2 в списке lst.
Примерно понимаю, что от меня требуется, но вот реализовать не получается.
Вот что я уже реализовал, но встретилась ошибка stack overflow

Lisp

(defun rep1(lst x y )
    (cond ((null lst) nil)
    ((eql y (car lst)) (cons x (cdr(rep1 lst x y))) )
    (t (cons (car lst) (rep1(x y (car lst))))))
    )

Не получается реализовать рекурсивный вывод от хвоста.
Буду благодарен вашей помощи, только пожалуйста используйте базовые функции lisp.

@helter · 26.11.2018, 00:27

Сообщение от cb7777

stack overflow

Неужели? Скопируйте, пожалуйста, неработающий пример и сообщение об ошибке.

Строка 4: (x y (car lst)) — это вызов функции x (не то, что вам нужно).

Пишите полностью: list, а не lst. В лиспе не сокращают так имена переменных, потому что у переменных и у функций разные пространства имён.

@Black Fregat · 26.11.2018, 01:28

Ну так в 3 строке оно и зациклится, где (cons x (cdr(rep1 lst x y)))
Это же точное повторение исходного вызова, с теми же параметрами..
На самом деле cdr нужно сделать до вызова rep1: (cons x (rep1 (cdr lst) x y))

@_sg · 26.11.2018, 08:37

как вариант:

Lisp

(defun change (w e z &aux (a (car w)))
  (when w (cons (if (eql a e) z a)
                (change (cdr w) e z))))
 
> (change '(a b c a b c) 'c 'd)
(A B D A B D)

Добавлено через 18 минут
с вложенными:

Lisp

(defun change (w e z)
  (loop for a in w
        if (listp a) collect (change a e z)
        else collect (if (eql a e) z a)))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

@Catstail · 26.11.2018, 15:31

Lisp

(defun task (lst x y)
  (mapcar (lambda (a) (if (equal a x) y (if (listp a) (task a x y) a))) lst))
 
==> TASK
 
(task '((a) b ((c) a) b (c)) 'c 'd)
==> ((A) B ((D) A) B (D))

@_sg · 28.11.2018, 09:18

Lisp

(defun change (w e z &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((listp a) (cons (change a e z) (change d e z)))
        ((eql a e) (cons z (change d e z)))
        ((cons a (change d e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Добавлено через 21 секунду

Lisp

(defun change (w e z &aux (a (car w)))
  (when w (cons (cond ((listp a) (change a e z))
                      ((eql a e) z)
                      (t a))
                (change (cdr w) e z))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Добавлено через 24 секунды

Lisp

(defun change (w e z)
  (mapcar #'(lambda (a)
              (if (listp a) (change a e z)
                  (if (eql a e) z a)))
          w))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

@cb7777 · 10.12.2018, 19:58 **[ТС]**

Спасибо за реализацию, но по тз нельзя пользоваться if и прочими функциями, только базовыми функции типа (atom car, cdr, cond eql)

@_sg · 11.12.2018, 15:55

Lisp

(defun change (w e z)
  (cond ((null w) nil)
        ((listp (car w)) (cons (change (car w) e z)
                               (change (cdr w) e z)))
        ((eql (car w) e) (cons z (change (cdr w) e z)))
        ((cons (car w) (change (cdr w) e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Добавлено через 3 минуты

Lisp

(defun change (w e z)
  (cond ((null w) nil)
        ((atom (car w))
         (cond ((eql (car w) e) (cons z (change (cdr w) e z)))
               ((cons (car w) (change (cdr w) e z)))))
        ((cons (change (car w) e z) (change (cdr w) e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Добавлено через 7 часов 10 минут

Lisp

(defun change (w e z)
  (cond ((null w) nil)
        ((cons (cond ((atom (car w))
                      (cond ((eql (car w) e) z)
                            ((car w))))
                     ((change (car w) e z)))
               (change (cdr w) e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

@helter 4527 / 3521 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	26.11.2018, 00:27	2
	Сообщение от cb7777 stack overflow Неужели? Скопируйте, пожалуйста, неработающий пример и сообщение об ошибке. Строка 4: (x y (car lst)) — это вызов функции x (не то, что вам нужно). Пишите полностью: list, а не lst. В лиспе не сокращают так имена переменных, потому что у переменных и у функций разные пространства имён. 2

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	26.11.2018, 01:28	3
	Сообщение было отмечено helter как решение Решение Ну так в 3 строке оно и зациклится, где `(cons x (cdr(rep1 lst x y)))` Это же точное повторение исходного вызова, с теми же параметрами.. На самом деле cdr нужно сделать до вызова rep1: `(cons x (rep1 (cdr lst) x y))` 3

@cb7777 2 / 2 / 1 Регистрация: 16.01.2013 Сообщений: 165
	10.12.2018, 19:58 [ТС]	7
	Спасибо за реализацию, но по тз нельзя пользоваться if и прочими функциями, только базовыми функции типа (atom car, cdr, cond eql) 0

Замена obj1 на obj2 во всех вложениях списка

Решение