Finished part2_3

TP1-2/tp2_3.pl

@@ -0,0 +1,20 @@
+a_droite(X, [X | D], D).
+% not(a_droite(X,[],_)).
+
+
+a_droite(X, [_ | Tail], D) :-
+	a_droite(X,Tail,D).
+
+a_gauche(X, [X | _], []).
+
+a_gauche(X, [Head | Tail], [HeadG | TailG]) :-
+	Head = HeadG,
+	a_gauche(X, Tail, TailG).
+
+
+separer(Head,[Head | Tail], [], Tail).
+
+separer(X,[Head | Tail], [Head | Aux], D) :-
+	separer(X,Tail,Aux, D).
+	
+