(* ===================================================== *)
(*      Apprentissage de la programmation avec OCaml     *)
(*      Catherine Dubois & Valérie Ménissier-Morain      *)
(*                Éditions Hermès Sciences               *)
(*                        Mars 2004                      *)
(* ===================================================== *)
(* Fichier MLSRC/Tris_listes/insertion_liste.ml          *)
(* ===================================================== *)

let rec insérer e l = match l with
| [] -> [e]
| x::l' ->
    if e < x then e::l else x::(insérer e l');;

let rec tri_insertion l = match l with
| [] -> []
| x::l' -> insérer x (tri_insertion l');;
Ce document a été traduit de LATEX par HEVEA.