Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Вывести список вершин, находящихся ниже этого уровня
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Murzilka Murzilka вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.05.2009
Arrow Вывести список вершин, находящихся ниже этого уровня - 28.05.2009, 20:20

Дано бинарное дерево и номер уровня. Вывести список вершин, находящихся ниже этого уровня.

У кого есть какие соображения на эту задачу, подскажите пожалуйста
Ответить с цитированием
  (#2 (permalink)) Старый
Murzilka Murzilka вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 06.05.2009
По умолчанию 19.06.2009, 10:09

Помочь никто не может?
Ответить с цитированием
  (#3 (permalink)) Старый
VH VH вне форума
Member
 
Сообщений: 781
Сказал(а) спасибо: 0
Поблагодарили 11 раз(а) в 10 сообщениях
Регистрация: 29.06.2006
По умолчанию 19.06.2009, 14:02

Код:
(defun F (Tree Level)
  (if Tree
   ((lambda (result)
     (if (zerop Level)
      (FF result)
      (F result (1- Level))))
    (apply 'append
     (mapcar
     '(lambda (elem)
       (if (atom elem) nil elem))
      Tree)))))
Код:
(defun FF (L)
  (if L
   (apply 'append
    (mapcar
    '(lambda (e)
      (if (atom e)
       (cons e nil)
       (FF e)))
     L))))
Дерево:
(1)
(1 (2) (3))
(1 (2 (4) (5)) (3))
(1 (2 (4) (5 (6) (7 (8) (9)))) (3))
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задан список произвольного уровня вложенности,превратить его в список атомов Дрон Lisp 6 19.11.2014 22:38
программа которая берет список и создает список другой из этого же списка + исходный Ma3day Prolog 5 26.11.2010 15:40
Построить список сумм чисел для вершин каждого уровня V55 Lisp 0 20.05.2009 22:53
Задан список произвольного уровня вложенности Kolobov_Anton Lisp 2 22.04.2009 02:23
Задан список произвольного уровня вложенности, сформировать из него новый список Kolobov_Anton Lisp 3 26.03.2009 22:29
Написать программу, выводящую список вершин дерева Wizman Lisp 2 18.06.2007 23:27
Список смежности вершин в графе laila Prolog 2 17.05.2007 23:00
Задается число в интервале 0….99. Вывести буквенное написание этого числа costa Lisp 3 26.11.2006 14:34
Список вершин дерева не являющихся листьями bikart Lisp 0 22.12.2005 22:39
Список вершин, смежных с заданной firix Prolog 4 06.12.2005 12:55
На выходе нужно получить только список вершин Gappik Lisp 1 19.05.2005 01:10
Список вершин графа Жуля Prolog 6 14.12.2004 23:27



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов