18 lines
336 B
OCaml
18 lines
336 B
OCaml
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 ""
|
|
;;
|