let produit x y =
  x*y;;
produit 3 4;;
let produittriple x=
  produit 3 x;;

int x = 42 in function x -> x+1;;

x=41;;
function x->x+1;;

let int x = fun som(x)-> x+1;;
som(3);;

sqrt(42.);;
let racinecarre x = sqrt(float_of_int x)
let racine x2 x1 x0=
  if x1*x1-4*x2*x0 <0
  then [0]
  else
    if x1*x1-4*x2*x0 = 0
    then [-x1/(2*x2)]
    else [(-x1+ int_of_float(sqrt(float_of_int(x1*x1-4*x2*x0)))) /(2*x2) ; (-x1- int_of_float(sqrt(float_of_int(x1*x1-4*x2*x0)))) /(2*x2)];;

(*TP DU 28/11/2011 EN DESSOUS*)


type nbrcomplexe = {re:int;im:int};;
let nombre1 = {re=3;im=2};;

type humain = Homme | Femme;;

type personne = {
sexe : humain;
prenom : string;
nom : string;
jour : int;
mois : int;
annee : int};;

let alice = {
sexe = Femme;
prenom = "Alice";
nom = "Dupond";
jour = 13;
mois = 05;
annee = 1986};;

let bob = {
sexe = Homme;
prenom = "Bob";
nom = "Leponge";
jour = 01;
mois = 05;
annee = 1968};;

let personneToString perso = perso.prenom ^ " " ^ perso.nom ^ " est ne" ^
  if perso.sexe=Femme
  then "e le " ^ string_of_int(perso.jour) ^ "/" ^ string_of_int(perso.mois) ^ "/" ^ string_of_int(perso.annee)
  else " le " ^ string_of_int(perso.jour) ^ "/" ^ string_of_int(perso.mois) ^ "/" ^ string_of_int(perso.annee);;

personneToString bob;;
personneToString alice;;
personneToString {sexe = Femme; prenom = "Linda"; nom = "lavoie"; jour = 03; mois = 05; annee = 1964};;

let compareAge p1 p2 =
  if p1.annee<p2.annee
  then 1
  else
    if p1.annee>p2.annee
    then -1
    else
      if p1.jour=p2.jour && p1.mois=p2.mois
      then 0
      else
        if p1.mois<p2.mois
        then 1
        else
          if p1.mois>p2.mois
          then -1
          else
            if p1.jour<p2.jour
            then 1
            else -1;;

type date = {annee:int ; mois:int ; jour:int};;
let ageEnAnnee p date =
if p.jour=date.jour && p.mois=date.mois && p.annee=date.annee
then failwith("vous etes bien jeune pour utiliser ce programme")
else
  if p.jour=date.jour && p.mois=date.mois
  then date.annee-p.annee
  else
    if p.mois<date.mois
    then date.annee-p.annee
    else
      if p.mois>date.mois
      then (date.annee-p.annee)-1
      else
        if p.jour<date.jour
        then date.annee-p.annee
        else (date.annee-p.annee)-1;;
ageEnAnnee {annee = 1968; mois = 12; jour = 01} {annee = 2011; mois = 11; jour = 30};;

OU PLUS SIMPLE
let ageEnAnnees p= if (p.mois < 11) || (p.mois=11 && p.jour<=30)
then 2011 - p.annee
else 2011 - p.annee - 1;;


(* EXERCICE 3.7 *)

let moisEnLettre = function 1 ->"janvier"
  |2 -> "fevrier"
  |3 -> "mars"
  |4 -> "avril"
  |5 -> "mai"
  |6 -> "juin"
  |7 -> "juillet"
  |8 -> "aout"
  |9 -> "septembre"
  |10 -> "octobre"
  |11 -> "novembre"
  |12 -> "decembre"
  |_ -> "";;

moisEnLettre 10;;

let moisEnNumero =function "janvier" -> 1
  |"fevrier" -> 2
  |"mars"->
  |"avril"->
  |"mai"->
  |"juin"->
  |"juillet"-> 7
  |"aout"-> 8
  |"septembre"-> 9
  |"octobre"-> 10
  |"novembre"-> 11
  |"decembre"-> 12
  |_ -> 0;;