(* Insertion d'un entier dans une liste triée par ordre croissant. *)

let rec insert x = function
  | y :: l when y < x -> y :: insert x l
  | l -> x :: l

(* note : en l'écrivant ainsi, le second cas traite tout autant le cas
   d'une liste vide que celui d'une liste qui commence par un élément
   supérieur ou égal à x. *)

This document was generated using caml2html