Объединить три списка с условиями - Prolog

Формулировка задачи:

Помогите пожалуйста с задачкой. Даны три списка. Объединить в результирующий список в заданной последовательности: - первые 3 элемента первого списка - все элементы второго списка - элементы третьего списка, кроме двух последних Очень срочно помогите пожалуйста(

Решение задачи: «Объединить три списка с условиями»

textual
                            Листинг программы 
                        

                            domains 
int=integer
intl=int*
 
predicates
 
leftl(int,intl,intl)
app(intl,intl,intl)
len(intl,int)
task(intl,intl,intl,intl)
 
clauses
 
leftl(0,_,[]).
leftl(N,[H|T],[H|Q]) :- N1=N-1, leftl(N1,T,Q).
 
app([],X,X).
app([H|T],X,[H|Y]) :- app(T,X,Y).
 
len([],0).
len([_|T],N) :- len(T,N1), N=N1+1.
 
task(X,Y,Z,R) :- leftl(3,X,X3), len(Z,L), L2=L-2, leftl(L2,Z,ZZ), app(X3,Y,T), app(T,ZZ,R).
                        

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

8 голосов , оценка 4.25 из 5

Похожие ответы