Laboratoare prolog

pozmaximl2([],Mt,M,N,Poz,P):-M=Mt,P=Poz.
    pozmaximl2([X|R],Mt,M,N,Poz,P):-X=<Mt,N1 is N+1,pozmaximl2(R,Mt,M,N1,Poz,P).
    pozmaximl2([X|R],Mt,M,N,Poz,P):-X>Mt,Poz1 is N,N1 is N+1,pozmaximl2(R,X,M,N1,Poz1,P).
    pozmaximl([X|R],M,P):-pozmaximl2(R,X,M,2,1,P).
    prefix([],L).
    prefix([X|R1],[X|R2]):-prefix(R1,R2).
    sufix(L,L).
    sufix(L,[X|R]):-sufix(L,R).
    sublista(L1,L):-prefix(L2,L),sufix(L1,L2).



    comparatieliste([],[]):-write('Liste au numar egal de elemente').
    comparatieliste(X,[]):-write('Prima lista are mai multe elemente').
    comparatieliste([],X):-write('A doua lista are mai multe elemente').
    comparatieliste([X|R1],[Y|R2]):-comparatieliste(R1,R2).


    elemconsec([X1,X2|R],X2,X1):-write('Cele doua elemente se afla consecutiv in lista').
    elemconsec([X1,X2|R],X1,X2):-write('Cele doua elemente se afla consecutiv in lista').
    elemconsec([X1,X2|R],Y,Z):-elemconsec([X2|R],Y,Z).

    interclasare(X,[],X).
    interclasare([],X,X).
    interclasare([X1|R1],[X2|R2],[X2|R3]):-X1>X2,interclasare([X1|R1],R2,R3).
    interclasare([X1|R1],[X2|R2],[X1|R3]):-X1<X2,interclasare(R1,[X2|R2],R3).
    interclasare([X1|R1],[X1|R2],[X1|R3]):-interclasare(R1,R2,R3).


    apartine(A,[A|R]).
    apartine(X,[A|R]):-A\=X,apartine(X,R).
    multime([]).
    multime([X|R]):-not(apartine(X,R)),multime(R).

    pozitiei([X|R],1,X).
    pozitiei([Z|R],I,X):-I1 is I-1,pozitiei(R,I1,X).


    pozitieelement([X|R],P,X,P).
    pozitieelement([Z|R],I,X,P):-I1 is I+1,pozitieelement(R,I1,X,P).


    parimpar([], [], []).
    parimpar([P|R1], L2, [P|R2]) :- Rest is P mod 2, Rest == 1, parimpar(R1, L2, R2).
    parimpar([P|R1], [P|R2], L2) :- Rest is P mod 2, Rest == 0, parimpar(R1, R2, L2).

    produsscalar([],[],X,X).
    produsscalar([Z|R1],[Y|R2],X,P):-X1 is X+(Z*Y),produsscalar(R1,R2,X1,P).

    pozparimpar([], [], [], I).
    pozparimpar([P|R1], L2, [P|R2], I) :- Rest is I mod 2, Rest == 1,I1 is I+1, pozparimpar(R1, L2, R2,I1).
    pozparimpar([P|R1], [P|R2], L2, I) :- Rest is I mod 2, Rest == 0,I1 is I+1, pozparimpar(R1, R2, L2,I1).

    adaugareelement([X|[]],[X|[Y]],Y).
    adaugareelement([X|R],[X|R2],Y):-adaugareelement(R,R2,Y).