Вопрос 1. Написать программу для определения принадлежности узла бинарному дереву


Добавил:DMT
Дата создания:30 декабря 2007, 19:19
Дата обновления:31 января 2008, 12:41
Просмотров:6260 последний 23 апреля, 0:55
Комментариев: 3
Вопрос 1. Написать программу для определения принадлежности узла бинарному дереву
up

Комментарии для "Вопрос 1. Написать программу для определения принадлежности узла бинарному дереву"


Пользователь: DMT
Сообщений: 123
Статус: Программист
Зарегистрирован:
18 октября 2007, 2:35
Был:13 ноября 2017, 4:54
DMT
smsup 		Дата: 4 января 2008, 12:45 Сообщение № 1
Программа принадлежности узла - дереву. 
Код на Lisp
  1. domains      
  2. 	chislo=integer      
  3. 	tree=tree(tree,chislo,tree);void      
  4. predicates      
  5. 	nondeterm in_tree(tree,chislo)      
  6. 	begin(tree,chislo)      
  7. clauses        
  8.  begin(Tr,Tmp):-in_tree(Tr,Tmp),      
  9.  write("The element is ",Tmp," is exist in tree\n"),      
  10.  !.      
  11.  begin(_,_):-write("Элемента нет в списке\n").      
  12.  in_tree(void,_):-fail.      
  13.  in_tree(tree(_,Tmp,_),Tmp):-	!.      
  14.  in_tree(tree(L,_,_),Tmp):-in_tree(L,Tmp).      
  15.  in_tree(tree(_,_,R),Tmp):-in_tree(R,Tmp).      
  16. goal      
  17. T=tree(tree(void,2,tree(tree(void,13,void),6,void)),10,      
  18. tree(void,34,void)),begin(T,234).
При использовании обязательна ссылка на http://DMTSoft.ru
Пользователь: lilo
Сообщений: 38
Статус: Незримый
Зарегистрирован:
8 января 2008, 12:39
Был:9 апреля 2008, 19:55
lilo
smsup 		Дата: 8 января 2008, 12:48 Сообщение № 2
Код на Lisp
  1. domains    
  2.   tree = tree(string, tree, tree) ; void    
  3.     
  4. predicates    
  5.    have(treetype,string)    
  6.     
  7. clauses    
  8.    have(empty,_) :- fail.    
  9.    have(tree(C,_,_),C).    
  10.    have(tree(_,L,R),S) :- have(L,S);    
  11.                           have(R,S).    
  12.     
  13. goal    
  14.    have(tree("1",  tree("1.1", void, void),    
  15.    tree("1.2", void, void)), "1.2").
При использовании обязательна ссылка на http://DMTSoft.ru
Пользователь: ruslan
Сообщений: 23
Статус: Незримый
Зарегистрирован:
5 января 2008, 2:42
Был:29 января 2008, 21:23
ruslan
smsup 		Дата: 15 января 2008, 0:26 Сообщение № 3
lilo, в 8-й строке вместо
empty
надо написать void, иначе не работает!