/* chdir('c:/users/gregoire fouillard/dropbox/efrei_2013_2014/ia/fichiers_prolog'). */
/* ['Tp_exo_2_2']. */

% Entier Liste
entier_liste(X,[X]) :- X < 10.
entier_liste(X,LN) :- N is X // 10, R is X mod 10,
						entier_liste(N,LN1),
						append(LN1,[R],LN).

% Concat
concat([],L,L).
concat([X|L],L2,[X|L3]) :- concat(L,L2,L3).

% Inverse
inverse([],[]).
inverse([X|L],LR) :- inverse(L,LS), concat(LS, [X],LR).

% elt_impairs
%elt_impairs([],[]).
%elt_impairs(Xs,Ys) :- elt_impairs(), concat().

% sommef(X,Y,Z)
sommef(X,0,X).
sommef(X,Y,Z) :- Z is X+Y.

pere('Jean','Pierre').

%liste pere
liste_pere :- pere(X,Y),
			write(X),
			writef(" a pour pere "),
			write(Y),
			nl,
			fail.
liste_pere.