Преобразование дерева поиска в список

11.12.2018, 19:06. Показов 1275. Ответов 0

Метки lisp, деревья поиска, рекурсивная функция, списки (Все метки)

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

Здравствуйте!

Помогите пожалуйста написать функцию (используя только примитивы) (рекурсивную), преобразующею дерево поиска в список.

Например есть дерево следующего вида: (7 (4 (3 2 nil) (5 nil nil)) (8 nil (10 nil 12)))

нужно из него сделать список (7 4 3 2 5 8 10 12), или в другом порядке (порядок не важен).

Добавлено через 27 минут
Ребят, извините за беспокойство, нашел свою старую функцию по удалению элемента в списке со вложенными списками, чуть модифицировал её и всё заработало.

Может кому-то пригодится, вот код:

Lisp
1
2
3
4
5
6
7
(defun tree-list (lists)
    (cond ((null lists) nil)
    ((not (atom (car lists))) 
    (append (tree-list (car lists)) (tree-list (cdr lists))))
    ((eql (car lists) nil) (tree-list (cdr lists)))
    (t (cons (car lists) (tree-list (cdr lists))))
    ))

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

11.12.2018, 19:06

Ответы с готовыми решениями:

Для каждого бинарного дерева выполнить преобразование дерева в список, результат вывести в виде списка списков
Объясните почему не работает, задание было таким " Дан список, элементы которого — непустые бинарные деревья с числами в качестве...

Преобразование сбалансированного дерева в дерево поиска
пишу программу по примерам не могу найти как преобразовать сбалансированное дерево в дерево поиска вот пример моего кода # include...

Преобразование идельно сбалансированного дерева в дерево поиска
Здравствуйте, уважаемые специалисты! Вынуждена просить у вас помощи, ибо самой справиться не получается. Имеется задание: 1....

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

11.12.2018, 19:06

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

Выполнить преобразование дерева в список - пролог 5.2
Дан список, элементы которого — непустые бинарные деревья с числами в качестве вершин. Для каждого такого дерева выполнить преобразование...

Реализация дерева поиска список сыновей
Добрый день. Нужно создать 2-а дерева поиска и хранить их "списком сыновей". В нужно вставить в А используя обратных обход. И вывести...

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

Деревья. Преобразование дерева в список. Вывод списка в списке. Найти среднее арифметическое всех элементов
Дан список, элементы которого — непустые бинарные деревья с числами в качестве вершин. Для каждого такого дерева выполнить преобразование...

Построить стягивающее дерево неориентированного графа методом поиска в ширину и вывести список рёбер дерева
1: Построить стягивающее дерево неориентированного графа методом поиска в ширину и вывести список рёбер дерева. Граф задан в текстовом...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

Наверх