home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Caml Light 0.7 / examples / grep / ensent.ml < prev    next >
Encoding:
Text File  |  1995-06-01  |  338 b   |  14 lines  |  [TEXT/MPS ]
  1. type t == int list;;
  2. let vide = [];;
  3. let rec appartient n = function
  4.     [] -> false
  5.   | m::reste ->
  6.       if m = n then true else
  7.         if m > n then false else appartient n reste;;
  8.  
  9. let rec ajoute n = function
  10.     [] -> [n]
  11.   | m::reste as ens ->
  12.       if m = n then ens else
  13.         if m > n then n :: ens else m :: ajoute n reste;;
  14.