tp7 exo6 (enfin fini !!!)

tp7/dune

@@ -6,6 +6,10 @@
   (name exo5)
   (modules exo5)
 )
+(library
+  (name exo6)
+  (modules exo6)
+)
 (library
   (name exo9)
   (modules exo9)

tp7/exo6.ml

@@ -0,0 +1,17 @@
+let creer_lcp () = [];;
+
+let taille_lcp = List.length;;
+
+let acces_lcp = List.nth;;
+
+let rec inserer_lcp l i x = match l,i with
+  | l, 0 -> x::l
+  | x::q, i -> x::inserer_lcp q (i-1) x
+  | _ -> invalid_arg ""
+;;
+
+let rec retirer_lcp l i = match l,i with
+  | _::q, 0 -> q
+  | x::q, i -> x::retirer_lcp q (i-1)
+  | _ -> invalid_arg ""
+;;