Обход дерева по L-X-R на языке программирования Пролог,prolog


Добавил:DMT
Дата создания:15 января 2008, 1:27
Дата обновления:28 апреля 2008, 12:46
Просмотров:3359 последний вчера, 7:05
Комментариев: 0
Обход дерева по L-X-R на языке программирования Пролог,prolog 
Код на Lisp
  1. domains    
  2. s=symbol    
  3. tree=tree(s,tree,tree);void    
  4.     
  5. predicates    
  6. mem_tree(tree)
  7. clauses    
  8. mem_tree(void).
  9. mem_tree(tree(Y,L,R)):-mem_tree(L),write(Y),mem_tree(R).  
  10.   
  11. goal  
  12. mem_tree(tree(a,tree(k,void,void),tree(c,void,void))).
При использовании обязательна ссылка на http://DMTSoft.ru
up