Сформировать список - Prolog
Формулировка задачи:
Всем привет
Нужно сформировать список L1 из элементов: произведение всех элементов L, произведение последних n-1 элементов и тд.
Решение задачи: «Сформировать список»
textual
Листинг программы
domains int=integer intl=int* predicates prod_list(intl,int) task(intl,intl) clauses prod_list([],1). prod_list([H|T],R) :- prod_list(T,RR), R=H*RR. task([],[]). task([H|T],[HH|TT]) :- prod_list([H|T],HH), task(T,TT).