(* Exercice 1 *)
(*1)*)
() ;;
(*2)*)
let c2() = 2;;
(*3)*)
let rien a = ();;
(*4)*)
let hello() = print_string "Hello World !\n";;

(*Exercice 2*)

let rec itere f n a = match n with
	| 0 -> a
	| _ -> f (itere f (n-1) a);;
itere sin 3000 1.;;

(* Exercice 3*)
(*1) : La fonction List.length retourne la longueur d'une liste.*)
let rec longueur liste = match liste with
	| [] -> 0
	| _ -> (longueur (List.tl liste)) + 1;;

longueur [1;2;3];;
(*2) : La fonction List.map applique une fonction à chaque élément d'une liste.*)
let rec mapper f liste = match liste with
	| [] -> []
	| _ -> (f (List.hd liste))::(mapper f (List.tl liste));;

mapper sin [1.;2.;3.];;
(*3)*)


let rec concatener listes = match longueur listes with
	| 0 -> []
	| 1 -> List.hd listes
	| 2 -> (List.hd listes)@(List.hd (List.tl listes))
	| _ -> concatener ([(List.hd listes)@(List.hd (List.tl listes))]@(List.tl (List.tl listes)));;
concatener [[1;2;3];[2;1;3];[4;5;1;3];[1]];;
concatener [];;
List.concat [];;