Вычислить N!+(N-1)!+.+2!+1! - Prolog
Формулировка задачи:
Вычислить N!+(N-1)!+...+2!+1!.
Решение задачи: «Вычислить N!+(N-1)!+.+2!+1!»
textual
Листинг программы
domains int=integer predicates fact(int,int) sumf(int,int) clauses fact(N,1) :- N<=1, !. fact(N,F) :- N1=N-1, fact(N1,F1), F=F1*N. sumf(1,1) :- !. sumf(N,S) :- fact(N,F), N1=N-1, sumf(N1,S1), S=S1+F.