%Факториал
factorial(0,1):-!.
factorial(1,1):-!.
factorial(N,F):-N1 is N-1,
factorial(N1,F1),
F=F1*N.
%Сумма цифр
sum_dig(N,N):-N<10.
sum_dig(N,S):-N1 is integer(N/10),
sum_dig(N1,S1),
S is S1+N-N1*10.
Рекурсия [Prolog]
Создать предикат, позволяющий вычеслить значение n! и подсчитает сумму чисел полученного числа!:confused:
а точно оно работает? ты ж функции определил как в С!!!!
Ну, эм, самый простой способ проверить это откомпилировать и запустить!=) и где ты там хоть что то похожее на Си увидел?0_о
при компилировании матерится вот на это "integer(N/10)"
в прологе ж не обозначается тип, т.е. Integer
в прологе ж не обозначается тип, т.е. Integer