(* Programmer avec des exceptions *)

exception Success;;

let contientNeg tab =
  failwith "A implémenter"
;;

assert(not(contientNeg [| 1 ; 0 ; 1 ; 3|]));; (*tableau parcouru en entier *)
assert(contientNeg [| -1 ; 0 ; 1 ; 3|]);; (* seul le premier element est examiné *)
assert(contientNeg [| 1 ; -1 ; 1 ; 3|]);; (* seuls les deux premiers elements sont examinés *)
assert(contientNeg [| 1 ; -1 ; 1 ; -3|]);; (* seuls les deux premiers elements sont examinés *)
assert(contientNeg [| 1 ; 0 ; 1 ; -3|]);; (*tableau parcouru en entier *)