P2_3

%3.
% a) Sa se sorteze o lista cu eliminarea dublurilor. De ex: [4 2 6 2 3
% 4] => [2 3 4 6]

insert_sorted([],E,[E]):-!.
insert_sorted([H|T],E,[E,H|T]):-E<H,!.
insert_sorted([H|T],E,[H|R]):- E>H,!,
    insert_sorted(T,E,R).
insert_sorted([H|T],H,[H|T]). % nu mai inserez daca il gasesc in lista


srtlsth([],C,C):-!.
srtlsth([H|T],S,C):-
    insert_sorted(C,H,C1),
    srtlsth(T,S,C1).

srtlst(L,R):-srtlsth(L,R,[]).