Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Найти сумму положительных узлов бинарного дерева
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
RomanCheus RomanCheus вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.12.2007
Unhappy 23.12.2007, 20:01

Памагите пожалуста Найти сумму положительных узлов бинарного дерева, в лиспе, незнаю как сделать ваще (
Plllz
Ответить с цитированием
  (#2 (permalink)) Старый
RomanCheus RomanCheus вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.12.2007
Unhappy 23.12.2007, 20:01

Памагите пожалуста Найти сумму положительных узлов бинарного дерева, в лиспе, незнаю как сделать ваще (
Plllz
Ответить с цитированием
  (#3 (permalink)) Старый
RomanCheus RomanCheus вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.12.2007
Unhappy 23.12.2007, 20:01

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

<div class='codetop'>Код</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>(defun SUMPLUS (Tree)
(cond
((null Tree) 0)
((atom (car Tree))
(+
(if (plusp (car Tree))
(car Tree)
0)
(SUMPLUS (cdr Tree))))
(T (+ (SUMPLUS (car Tree)) (SUMPLUS (cdr Tree))))))</div>
<div class='codetop'>Код</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>(defun SUMPLUS (Tree)
(if (null Tree) 0
((lambda (head tail)
(+
(if (atom head)
(if (plusp head) head 0)
(SUMPLUS head))
(SUMPLUS tail)))
(car Tree)
(cdr Tree))))</div>
Ответить с цитированием
  (#5 (permalink)) Старый
VH VH вне форума
Member
 
Сообщений: 781
Сказал(а) спасибо: 0
Поблагодарили 11 раз(а) в 10 сообщениях
Регистрация: 29.06.2006
По умолчанию 24.12.2007, 10:01

<div class='codetop'>Код</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>(defun SUMPLUS (Tree)
(cond
((null Tree) 0)
((atom (car Tree))
(+
(if (plusp (car Tree))
(car Tree)
0)
(SUMPLUS (cdr Tree))))
(T (+ (SUMPLUS (car Tree)) (SUMPLUS (cdr Tree))))))</div>
<div class='codetop'>Код</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>(defun SUMPLUS (Tree)
(if (null Tree) 0
((lambda (head tail)
(+
(if (atom head)
(if (plusp head) head 0)
(SUMPLUS head))
(SUMPLUS tail)))
(car Tree)
(cdr Tree))))</div>
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
VH VH вне форума
Member
 
Сообщений: 781
Сказал(а) спасибо: 0
Поблагодарили 11 раз(а) в 10 сообщениях
Регистрация: 29.06.2006
По умолчанию 24.12.2007, 10:01

<div class='codetop'>Код</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>(defun SUMPLUS (Tree)
(cond
((null Tree) 0)
((atom (car Tree))
(+
(if (plusp (car Tree))
(car Tree)
0)
(SUMPLUS (cdr Tree))))
(T (+ (SUMPLUS (car Tree)) (SUMPLUS (cdr Tree))))))</div>
<div class='codetop'>Код</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>(defun SUMPLUS (Tree)
(if (null Tree) 0
((lambda (head tail)
(+
(if (atom head)
(if (plusp head) head 0)
(SUMPLUS head))
(SUMPLUS tail)))
(car Tree)
(cdr Tree))))</div>
Ответить с цитированием
  (#7 (permalink)) Старый
RomanCheus RomanCheus вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.12.2007
По умолчанию 24.12.2007, 11:40

Спасибо огромнейшее!!
Ответить с цитированием
Ads
  (#8 (permalink)) Старый
RomanCheus RomanCheus вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.12.2007
По умолчанию 24.12.2007, 11:40

Спасибо огромнейшее!!
Ответить с цитированием
  (#9 (permalink)) Старый
RomanCheus RomanCheus вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.12.2007
По умолчанию 24.12.2007, 11:40

Спасибо огромнейшее!!
Ответить с цитированием
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить функцию для вывода бинарного дерева на экран в виде дерева imported_Vinni Lisp 22 20.06.2011 22:34
Вычислить и запомнить сумму и число положительных элементов GoTHeSS Lisp 3 22.04.2010 19:30
Найти максимальный из положительных элементов матрицы и сумму отрицательных элементов. bessonov12 Visual Basic 1 29.04.2009 11:30
Найти сумму положительных элементов списка imported_Lisa_D Lisp 1 15.04.2009 12:30
Подсчет узлов дерева kuller Prolog 2 29.12.2008 22:59
Найти сумму положительных узлов бинарного дерева Freeeeek Lisp 3 09.06.2007 19:37
Сред.ариф. узлов дерева andrey-m Prolog 5 15.01.2007 12:43
Программа вычисляющая сумму положительных элементов списка bl77 Lisp 6 23.11.2006 12:38
Построение бинарного дерева blur Pascal 10 14.05.2006 20:55
Найти сумму и количество положительных чисел Катерина! Pascal 20 28.12.2005 08:40
Найти глубину любого бинарного дерева VeVe Вопросы начинающих программистов 7 27.11.2005 14:17
Определить сумму положительных и сумму отрицательных элементов массива emm Pascal 1 07.12.2004 16:48



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