Рекурсия простая и параллельная

@SEV24 · Регистрация: 20.12.2014

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

Определить функцию, замещающую в в списке все вхождения S1 на S2
a) для элементов верхнего уровня списка; это с помощью простой рекурсии
b) для списка, содержащего подсписки; это параллельной рекурсией

@Catstail · 20.12.2014, 20:52

Все это делалось уже добрый десяток раз...

Lisp

(defun rep-s (lst s1 s2) ;; простая рекурсия
  (if lst (if (equal (car lst) s1) 
              (cons s2 (rep-s (cdr lst) s1 s2))
              (cons (car lst) (rep-s (cdr lst) s1 s2)))
          nil))
 
==> rep-s
 
(rep-s '((a b) c d (a b)) '(a b) 'x)
 
==> (x c d x)
 
(defun rep-p (lst s1 s2) ;; параллельная рекурсия
  (cond ((null lst) nil)
        ((equal (car lst) s1) (cons s2 (rep-p (cdr lst) s1 s2)))
        ((listp (car lst)) (cons (rep-p (car lst) s1 s2) (rep-p (cdr lst) s1 s2)))
        (t (cons (car lst) (rep-p (cdr lst) s1 s2)))))
 
==> rep-p
 
(rep-p '((a b) c d ((a b))) '(a b) 'x)
 
==> (x c d (x))

@SEV24 · 20.12.2014, 21:03 **[ТС]**

Спасибо!

@SEV24 0 / 0 / 0 Регистрация: 20.12.2014 Сообщений: 3
		1
	Рекурсия простая и параллельная 20.12.2014, 20:26. Показов 2190. Ответов 2 Метки нет (Все метки) Определить функцию, замещающую в в списке все вхождения S1 на S2 a) для элементов верхнего уровня списка; это с помощью простой рекурсии b) для списка, содержащего подсписки; это параллельной рекурсией 0

@SEV24 0 / 0 / 0 Регистрация: 20.12.2014 Сообщений: 3
	20.12.2014, 21:03 [ТС]	3
	Спасибо! 0

Рекурсия простая и параллельная

Решение