Заменить число на его глубину вложения

@dante666lcf · Регистрация: 20.02.2018

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

2. Напишите функцию, заменяющую Y на число, равное глубине
вложения Y в W, например, Y=a, W=((a b) a (c (a (a d)))) ->
((2 b) 1 (c (3 (4 d)))).

Я пользуюсь HomeLisp, не могли бы написать, я не понимаю.

@_sg · 20.02.2018, 17:16

Переделать рекурсию по аргументу в рекурсию по значению

@Catstail · 20.02.2018, 19:58

Lisp

(defun task (el lst &optional (lv 1))
  (cond ((null lst) nil)
        ((eq el (car lst)) (cons lv (task el (cdr lst) lv)))
        ((listp (car lst)) (cons (task el (car lst) (+ lv 1)) (task el (cdr lst) lv)))
        (t (cons (car lst) (task el (cdr lst) lv))))) 
 
==> TASK
 
(task 'a '((a b) a (c (a (a d)))))
 
==> ((2 B) 1 (C (3 (4 D))))
 
(defun task (el lst &optional (lv 1))
  (mapcar (lambda (x) (cond ((eq el x) lv)
                            ((listp x) (task el x (+ lv 1)))
                            (t x))) lst))
 
==> TASK
 
(task 'a '((a b) a (c (a (a d)))))
 
==> ((2 B) 1 (C (3 (4 D))))

@dante666lcf 0 / 0 / 0 Регистрация: 20.02.2018 Сообщений: 6
		1
	Заменить число на его глубину вложения 20.02.2018, 12:54. Показов 1905. Ответов 2 Метки нет (Все метки) 2. Напишите функцию, заменяющую Y на число, равное глубине вложения Y в W, например, Y=a, W=((a b) a (c (a (a d)))) -> ((2 b) 1 (c (3 (4 d)))). Я пользуюсь HomeLisp, не могли бы написать, я не понимаю. 0

@_sg 4699 / 4394 / 380 Регистрация: 12.05.2012 Сообщений: 3,096
	20.02.2018, 17:16	2
	Переделать рекурсию по аргументу в рекурсию по значению 1

	20.02.2018, 19:58

Заменить число на его глубину вложения

Решение