(* Examen du groupe C2, sous-groupe 1, le mardi 6 mai 2003 *)



(* Exercice 1 *)

let rec supp_paire l = match l with 
                        [] -> []
                       |t::r -> if t mod 2 = 0 then supp_paire r else t::(supp_paire r);;


(* Exercice 2 *)

let rec binome n p = match (n,p) with
                      (_,0) -> 1
                     |(0,_) -> 0
                     |(n,p) when n=p -> 1
                     |(n,p) -> (binome (n-1) (p-1)) + (binome (n-1) p);;


(* Exercice 3 *)

let rec puissance_x_de_n x n = match (x,n) with
                                (0,0) -> failwith "Erreur 0^0 non défini!"
                               |(_,0) -> 1
                               |(x,n) -> x*(puissance_x_de_n x (n-1));;

let rec Sn a b n = match n with
                    0 -> 1
                   |n -> (puissance_x_de_n a n) + b * (Sn a b (n-1));;