Вычислить 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.

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы