Вопрос 8. Написать программу для проверки двух бинарных деревьев на изоморфность .

Добавил:	DMT
Дата создания:	30 декабря 2007, 19:22
Дата обновления:	30 декабря 2007, 19:22
Просмотров:	6893 последний 4 декабря, 3:10
Комментариев:	2
Вопрос 8. Написать программу для проверки двух бинарных деревьев на изоморфность .

Комментарии для "Вопрос 8. Написать программу для проверки двух бинарных деревьев на изоморфность ."

Пользователь: kate
Сообщений: 9
Статус: Незримый
Зарегистрирован:
4 января 2008, 14:05
Был:28 января 2008, 21:05

Дата: 4 января 2008, 14:41 Сообщение № 1

В методе вот это нашла!

Код на Lisp
  
isotree ( T1, T2 ).  
// истинно, если Т1 изоморфно Т2  
isotree ( void, void ).  
isotree (tree ( X, L1, R1 ), tree ( X, L2, R2 ) ):-  
isotree (L1, L2 ), isotree ( R1, R2 ).  
isotree (tree ( X, L1, R1 ), tree ( X, L2, R2 ) ):-  
isotree (L1, R2 ), isotree ( L2, R1 ).  
 
При использовании обязательна ссылка на http://DMTSoft.ru

Пользователь: lilo
Сообщений: 38
Статус: Незримый
Зарегистрирован:
8 января 2008, 12:39
Был:9 апреля 2008, 19:55

Дата: 8 января 2008, 12:52 Сообщение № 2

Код на Lisp
domains      
   tree = tree(string, tree, tree); void      
predicates      
   izomorph(tree,tree)      
clauses      
   izomorph(X,X).   
   izomorph(tree(X,L1,R1),tree(X,L2,R2)) :- izomorph(R1,L2),  
izomorph(L1,R2).      
   izomorph(tree(X,L1,R1),tree(X,L2,R2)) :- izomorph(L1,L2),  
izomorph(R1,R2).      
goal      
   izomorph(tree("a",tree("b",tree("d",void,void),tree("e",void,  
void)),tree("c",void,void)),      
            tree("a",tree("b",tree("d",void,void),tree("e",void,  
void)),tree("c",void,void))),  
write("true").
При использовании обязательна ссылка на http://DMTSoft.ru

	Зарегистрироваться
Логин:
Пароль: