LINUX.ORG.RU

что-то вроде этого:

deriv(L, X) :- reverse(L, [_ | T]),
               deriv1(T, 1, [], X).
deriv1([], _, L, L).
deriv1([H1 | T1], N, L2, L3) :- N1 is N + 1,
                                H2 is N * H1,
                                deriv1(T1, N1, [H2 | L2], L3).
PayableOnDeath ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.