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


Добавил:DMT
Дата создания:6 января 2008, 16:56
Дата обновления:28 апреля 2008, 12:45
Просмотров:3947 последний позавчера, 1:15
Комментариев: 0

Вычисление числа сочетаний на Прологе

Код на Lisp
  1. domains
  2.   N=real
  3.  
  4. predicates
  5.    factorial(N,N)./*вычисление факториала 
  6.    параметры: 
  7.       -число
  8.       -значение факториала*/
  9.  
  10.    NomberOfCombination(N,N,N)./*число сочетаний
  11.                  параметры: -число выбираемых элементов
  12.                             -всего элементов
  13.                             -результат*/
  14. clauses
  15.    factorial(1,1):-!.
  16.    factorial(Number,Result) :- Number1=Number-1,
  17.             factorial(Number1,FacN1),Result=Number*FacN1.
  18.  
  19.    NomberOfCombination(K,N,Res):-factorial(N,Res1),factorial(K,Res2),
  20.            N1=N-K,factorial(N1,Res3),Res=Res1/(Res2*Res3).
При использовании обязательна ссылка на http://DMTSoft.ru
up