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


Добавил:DMT
Дата создания:15 января 2008, 1:32
Дата обновления:28 апреля 2008, 12:44
Просмотров:3407 последний позавчера, 17:21
Комментариев: 0

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

Код на Lisp
  1.  
  2. domains
  3. s=symbol
  4. tree=tree(s,tree,tree);void
  5. predicates
  6. mem_tree(s,tree) clauses mem_tree(X,void):-!,fail.
  7. mem_tree(X,tree(X,L,R)):-!.
  8. mem_tree(X,tree(Y,L,R)):-mem_tree(X,L);
  9. mem_tree(X,R).
  10. goal
  11. mem_tree(a,tree(a,tree(k,void,void),tree(c,void,void))).
  12.  
При использовании обязательна ссылка на http://DMTSoft.ru
up