%%%
%%%    outils de manipulations de listes
%%%      fichier "listes.pro"
%%%

%    concatenation 
concat([],L,L).
concat([X|Xs],Y,[X|Z]):-concat(Xs,Y,Z).

%    verification d'appartenance 
dans(X,[X|_]).
dans(X,[_|Xs]):-dans(X,Xs).

%    donner le nieme élément 
nieme([H|_],1,H):-!.
nieme([_|T],N,H1):-N1 is N-1, nieme(T,N1,H1).

%    trouver le nombre d'éléments 
longueur([],0).
longueur([_|T],N):-longueur(T,N1),N is N1+1.

%    renverser l'ordre des éléments
renverse(L,R):-renverse(L,[],R).
renverse([H|T],L1,L):-renverse(T,[H|L1],L).
renverse([],L,L).