#use "AP1utilbis.ml" ;;
#use "AP1saisie5.ml" ;;

let get_intver(v_min, v_max : int * int) : int =
  let v : int ref = ref 0 and thend : bool ref = ref false in
  (
    while not(!thend)
    do
      print_string("saisissez votre annee de naissance") ;
      v := read_int() ;

      if !v < 2003
      then (print_string("Vous etes trop jeune! Revenez l'an prochain") ; print_newline() ;)
      else
        if !v > 2005
      then (print_string("Vous etes trop trop vieux! Rien a faire la..") ; print_newline() ;);

      thend := ( !v >= v_min && !v <= v_max);

    done;

   !v;
  )
;;

let get_id() : int =
  let v : int ref = ref 0 and thend : bool ref = ref false in
  (
    while not( !thend)
    do
      print_string("saisissez votre numero de licence: ") ;
      v := read_int() ;
      thend := ( !v >= 0) ;
    done ;
    !v ;
  )
;;

let get_poids() : int =
  let v : int ref = ref 0 and thend : bool ref = ref false in
  (
    while not( !thend)
    do
      print_string("saisissez votre poids: ") ;
      v := read_int() ;
      thend := ( !v >= 0) ;
    done ;
    !v ;
  )
;;

let get_name() : string =
 print_string("saisissez votre nom: ");
  let nom : string = read_line() in


  nom;
;;



type t_judoka = {nom : string ; yob : int ; id : int ; poids : int;};;
(* yob = year of birth, id = identification*)


let cat_weight_tab = [|46 ; 50 ; 55 ; 60 ; 66 ; 73 ; 81 ; 90 ; 90|];;
let cat_playerNum_tab = [|1 ; 1 ; 3 ; 2 ; 3 ; 0 ; 5 ; 0 ; 3|];;


let get_judoka() : t_judoka =
{nom = get_name() ; yob = get_intver(2003, 2005); id = get_id() ; poids = get_poids()}
;;


let registration_aux(b : int) : int =
  let m : t_judoka ref = ref {nom = "0" ; yob = 0; id = 0 ; poids = b}  in
  let pos : int ref = ref 1 in

(
  for i = 1 to 8
     do
        if !m.poids < cat_weight_tab.(i-1)
        then
          pos := !pos
        else
          if !m.poids > cat_weight_tab.(i-1)
          then pos := !pos + 1
          else
            if !m.poids > 90
            then pos := 8;

  done ;

  !pos-1;



)
 ;;

 let registration() : unit =
  let poids : t_judoka = get_judoka() in
  let m : int ref = ref poids.poids in
  let pos : int = registration_aux(!m) in
  cat_playerNum_tab.(pos) <- cat_playerNum_tab.(pos) + 1;
  ;;


let registration_tab() : (int*int) array =
    let v : (int*int) array = arr_make(9, (0,0)) in
    (
      for i = 1 to 9
      do
      v.(i-1) <- (cat_weight_tab.(i-1), cat_playerNum_tab.(i-1));
      done ;
      v;
    )
;;



 let get_registration(): (int*int) array =
   let m : t_judoka ref = ref {nom = "0" ; yob = 0; id = 0 ; poids = 0} in
   let fin : bool ref = ref false in

   (
   while not(!fin)
   do
         m :=  get_judoka();
         registration(!m.poids);
         if !m.nom = "@"
         then fin := true
         else
           fin := false;
   done;
   registration_tab();
   )
 ;;

let counter() : bool =
 let count : int ref = ref 0 in
   (
     for i = 1 to 9
     do
       if
         (cat_playerNum_tab.(i-1) > 0) && not(!count > 2)
       then
         count := (cat_playerNum_tab.(i-1) + !count);
     done;

         (!count > 2) ;
   )
;;
let failcount() : bool =
  if not(counter())
  then
    failwith "pas assez d'inscrits"
  else
    counter()
;;


let grouping() : int array =

(
   for i = 1 to 8
   do
      if
        (cat_playerNum_tab.(i-1) < 3) && failcount()
      then
        (cat_playerNum_tab.(i) <- cat_playerNum_tab.(i-1) + cat_playerNum_tab.(i);
         cat_playerNum_tab.(i-1) <- 0)
      else
        if
          cat_playerNum_tab.(8) < 3
        then
          (cat_playerNum_tab.(7) <- cat_playerNum_tab.(8) + cat_playerNum_tab.(7);
           cat_playerNum_tab.(8) <- 0)
        ;
   done ;
   cat_playerNum_tab;
)
;;



let aux_cat(num : int) : int =
  let pos : int ref = ref (registration_aux(num)) in
  (
    for i = 1 to 8
    do
      if cat_playerNum_tab.(!pos) < 1
      then
        pos := !pos + 1
      else
        pos := !pos ;
    done;
    !pos;
  )

  ;;

let category() : unit =
  let m : t_judoka = get_judoka() in
  let g : int = aux_cat(m.poids) in

  if (m.poids > 1) && (g < 8)
  then
    (
     print_string("-");
     print_string(string_of_int(cat_weight_tab.(g)));
     print_string(" ");
     print_newline()
)
  else
    (
     print_string(string_of_int(cat_weight_tab.(g)));
     print_string("+");
     print_string(" ");
     print_newline()
    )
  ;;