(* Somme des f(k) pour k dans i..j (inclus) *)

let rec sum f i j =
  if i > j then 0 else f i + sum f (i + 1) j

This document was generated using caml2html