Вставка элемента в список после всех вхождений указанного на языке программирования Пролог,prolog


Добавил:DMT
Дата создания:6 января 2008, 14:15
Дата обновления:28 апреля 2008, 12:51
Просмотров:5071 последний 12 апреля, 10:42
Комментариев: 0

Вставка элемента в список после всех вхождений указанного на языке программирования Пролог,prolog

Вариант 1: 
Код на Lisp
  1.       
  2. domains
  3.     int=integer
  4.     str=string
  5.     strp=str*
  6.  
  7. predicates
  8.     insert(str,str,strp,strp).
  9.     /* вставка элемента в список перед указанными
  10.     параметры:
  11.     1- вставляемый элемент
  12.     2- элемент после 
  13.        которого происходит вставка
  14.     3- исходный список
  15.     4- измененный список*/
  16.  
  17. clauses  
  18.     insert(X,_,[],[]):-!.
  19.     insert(X,Head,[Head|Z],[Head,X|T]):-insert(X,Head,Z,T),!.
  20.     insert(X,Y,[Head|Z],[Head|N]):- insert(X,Y,Z,N). 
  21.   
При использовании обязательна ссылка на http://DMTSoft.ru
Вариант 2: 
Код на Lisp
  1.  
  2. domains
  3.  s=symbol
  4.  i=integer
  5.  ss=s*
  6. predicates
  7.  ins(s,ss,ss,ss).
  8. clauses
  9.  ins(N,P,[ ],[ ]).
  10.  ins(N,P,[P|H],[N,P|H]).
  11.  ins(N,P,[M|H],[M|H]).
  12.  ins(N,P,H,H1).
  13. goal
  14. ins(a,c,[b,c,d],T),write(T).
  15.  
При использовании обязательна ссылка на http://DMTSoft.ru
up