Сортировка списка методом вставки на языке программирования Пролог,prolog


Добавил:DMT
Дата создания:6 января 2008, 14:57
Дата обновления:28 апреля 2008, 12:50
Просмотров:4997 последний вчера, 1:15
Комментариев: 0

Сортировка списка методом вставки на языке программирования Пролог,prolog

Код на Lisp
  1. predicates    
  2.     sort(strp,strp).
  3.      /* сортировка списка методом вставки
  4.      параметры:
  5.      - исходный список
  6.      - получаемый список */
  7.     sort_ins(str,strp,strp).
  8.     /* вспомогательный предикат для сортировки */
  9.     compare(str,str).
  10.     /* предикат сравнения двух переменных */
  11. clauses  
  12.     sort([],[]).
  13.     sort([X|X1],Y):- sort(X1,Y1),
  14.                       sort_ins(X,Y1,Y).
  15.     sort_ins(X,[Y|List],[Y|List1]):- compare(X,Y),!,sort_ins(X,List,List1).
  16.     sort_ins(X,List,[X|List]).
  17.     compare(X,Y) :- X > Y.
  18. goal    
  19. sort(["0","3","1","4","5","6","7"]).
При использовании обязательна ссылка на http://DMTSoft.ru
up