(* Concaténation de deux listes *)

let rec append l1 l2 = match l1 with
  | []      -> l2
  | x :: r1 -> x :: append r1 l2

(* note : c'est la fonction List.append de la bibliothèque OCaml,
   correspondant au symbole infixe @ *)

This document was generated using caml2html