Дано дерево (необязательно бинарное) и номер уровня. Вывести список вершин, находящихся на данном уровне

@diavols999 · Регистрация: 22.05.2017

Дано дерево (необязательно бинарное) и номер уровня. Вывести список вершин, находящихся на данном уровне.
Помогите решить до завтра.

@Catstail · 29.04.2018, 20:28

Поскольку, как я полагаю, бессмысленно спрашивать о том, в какой форме представляется дерево (ответ будет: "не знаю, так в задании написано"), то предлагаю решение. А ТС пусть думает:

Lisp

(defun task (tree lv)
  (cond ((null tree) nil)
        ((zerop lv) (list (car tree)))
        (t (apply 'append (mapcar (lambda (x) (task x (- lv 1))) (cdr tree))))))
 
==> TASK
 
(task '(1 (5 (6) (7) (8))) 1) 
 
==> (5)
 
(task '(1 (5 (6) (7) (8))) 2) 
 
==> (6 7 8)
 
(task '(1 (5 (6) (7 (a) (b)) (8))) 3) 
 
==> (A B)

@diavols999 0 / 0 / 0 Регистрация: 22.05.2017 Сообщений: 4
		1
	Дано дерево (необязательно бинарное) и номер уровня. Вывести список вершин, находящихся на данном уровне 29.04.2018, 18:39. Просмотров 789. Ответов 1 Метки нет (Все метки) Дано дерево (необязательно бинарное) и номер уровня. Вывести список вершин, находящихся на данном уровне. Помогите решить до завтра. 0

Опции темы