Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Опредилить количество вершин в дереве
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
гульчачак гульчачак вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.01.2007
По умолчанию Опредилить количество вершин в дереве - 01.02.2007, 16:00

опредилить количество вершин в дереве. организация рекурсии и сохранения в файле.
Ответить с цитированием
  (#2 (permalink)) Старый
Vladimir the Red Sunny Vladimir the Red Sunny вне форума
Member
 
Сообщений: 4,232
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.05.2003
По умолчанию 05.02.2007, 10:07

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

Код:
(defun NODECOUNT (_tree)
  (cond
   ((eq _tree nil) 0)
   ((atom _tree) 1)
   (T (1+ (apply '+ (mapcar 'NODECOUNT (cdr _tree)))))))
Дерево может выглядеть
'(1 (2 (3) (4 (5))) (6 (7))) ; лист - список из одного элемента
либо
'(1 (2 3 (4 5)) (6 7))) ; лист - атом
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите опредилить тип оперативки на раритетном компе. Walther Память 2 25.10.2011 22:59
Посчитать количество элементов в бинарном дереве pidalio Pascal 2 01.03.2011 08:40
Нумерация вершин орграфа Сергей Стулов Prolog 8 13.01.2010 18:24
Системник в дереве. Villain Моддинг 3 20.12.2008 01:44
Задача - Определить количество листьев в бинарном дереве. Игоревна Prolog 2 27.01.2008 05:18
Написать функцию, которая возвращает количество вершин Adebayor Lisp 11 16.12.2007 22:58
Двунаправленный поиск в дереве __Alena_ Prolog 2 18.10.2007 00:27
Операции на дереве. dfcz Prolog 2 11.06.2007 23:06
Количество элементов в бинарном дереве и сумма листьев Aleksei_24 Prolog 4 28.09.2006 17:06
Как вязать несколько вершин Себастьян Алгоритмы 1 05.06.2005 17:53
Удаление вершин из дерева Mylene Вопросы начинающих программистов 2 20.04.2005 08:29
Как опредилить место где производится запись за пределы выделенного блока памяти sergeif Visual C++ 3 26.11.2002 11:48



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