(* exercice 1 *)

let somme t =
  failwith "A coder"
;;

somme [|1;2;3;4;5;6|] ;;

let moyenne t =
  failwith "A coder"
;;

moyenne [|1;2;3;4;5;6|] ;;

let min_tab t =
  failwith "A coder"
;;

min_tab [|1;2;3;4;0;5;1;6|] ;;

let max_tab t =
  failwith "A coder"
;;

max_tab [|1;2;3;4;0;5;1;6|] ;;

let appartient x t =
  failwith "A coder"
;;

appartient 0 [|1;2;3;4;0;5;1;6|] ;;

appartient 9 [|1;2;3;4;0;5;1;6|] ;;

let dernier_indice x t =
  failwith "A coder"
;;

dernier_indice 1 [|2;3;1;4;0;5;1;6|] ;;

dernier_indice 9 [|2;3;1;4;0;5;1;6|] ;;

let premier_indice x t =
  failwith "A coder"
;;

premier_indice 1 [|2;3;1;4;0;5;1;6|] ;;

premier_indice 9 [|2;3;1;4;0;5;1;6|] ;;

let forall f t =
  failwith "A coder"
;;

forall (fun x -> x mod 2 = 0) [|2;3;1;4;0;5;1;6|] ;;

forall (fun x -> x < 9) [|2;3;1;4;0;5;1;6|] ;;

let exists f t =
  failwith "A coder"
;;

exists (fun x -> x mod 2 = 0) [|2;3;1;4;0;5;1;6|] ;;

exists (fun x -> x > 9) [|2;3;1;4;0;5;1;6|] ;;

(* exercice 2 *)

exception Break

exception Trouve of int

let appartient x t =
  failwith "A coder"
;;

appartient 0 [|1;2;3;4;0;5;1;6|] ;;

appartient 9 [|1;2;3;4;0;5;1;6|] ;;

let premier_indice x t =
  failwith "A coder"
;;

premier_indice 1 [|2;3;1;4;0;5;1;6|] ;;

premier_indice 9 [|2;3;1;4;0;5;1;6|] ;;

let forall f t =
  failwith "A coder"
;;

forall (fun x -> x mod 2 = 0) [|2;3;1;4;0;5;1;6|] ;;

forall (fun x -> x < 9) [|2;3;1;4;0;5;1;6|] ;;

let exists f t =
  failwith "A coder"
;;

exists (fun x -> x mod 2 = 0) [|2;3;1;4;0;5;1;6|] ;;

exists (fun x -> x > 9) [|2;3;1;4;0;5;1;6|] ;;

(* exercice 3 *)

let carres n =
  failwith "A coder"
;;

carres 6 ;;

let copie_miroir t =
  failwith "A coder"
;;

copie_miroir [|"a";"b";"c";"d"|] ;;

copie_miroir [||] ;;

let matrice n =
  failwith "A coder"
;;

matrice 6 ;;

(* Exercice 4 *)

let swap t i j =
  () (* A coder *)
;;

let t = carres 6 in swap t 1 4 ; t ;;

let etape_bulles t =
  failwith "A coder"
;;

let t = copie_miroir (carres 6) in let _ = etape_bulles t in t ;;

let tri_bulles t =
  () (* A coder *)
;;

let t = copie_miroir (carres 6) in tri_bulles t ; t ;;

(* Exercice 5 *)

let indice_min t i =
  failwith "A coder"
;;

indice_min [|0;1;5;3;2;6;3;4|] 2 ;;

let tri_selection t =
  () (* A coder *)
;;

let t = copie_miroir (carres 6) in tri_selection t ; t ;;

(* Exercice 6 *)

let tri_insertion t =
  () (* A coder *)
;;

let t = copie_miroir (carres 6) in tri_insertion t ; t ;;

(* Exercice 7 *)

let monnaie_glouton p x =
  failwith "A coder"
;;

monnaie_glouton [|1;2;5;10;20;50|] 139 ;;

monnaie_glouton [|1;3;6;12;24;30|] 48 ;;

let monnaie_dyna p x =
  failwith "A coder"
;;

monnaie_dyna [|1;3;6;12;24;30|] 48 ;;