(* donnees *)

let noms = ["Lendormi";"Malencontreux";"Louravi";"Tricaillou"; 
 "Maladroit";"Lebougnat";"Letordu";"Ledroit";"Letourdi";"Connor"; 
 "Legnidu";"Lapache";"Panhard";"Dutronc";"Alcazar" 
];;

let prenoms = ["Nestor";"Jules";"Arsene";"Cesar";"Leandre";"Egmont"; 
 "Clovis";"Marius";"Clothaire"; 
 "Samantha";"Aglae";"Barbara";"Fanny";"Josephine";"Agatha";"Emily"; 
 "Sharon";"Chloe";"Ernestine";"Georgina";"Sarah"
];;

let rec n_ieme n = function 
 | [] -> failwith "pas assez d'objets" 
 | t::_ when n=0 -> t 
 | _::q -> n_ieme (n-1) q ;;

let choisit_dans l = n_ieme (random__int (list_length l)) l ;;

let cree_liste n noms prenoms = 
 let rec aux accu = function 
  | 0 -> accu 
  | n -> let prenom = choisit_dans prenoms and nom = choisit_dans noms in 
     let s = concat [prenom;" ";nom] in 
     if mem s accu then aux accu n else aux (s::accu) (n-1) 
 in aux [] n ;;

(* outils de generation de l'etat des depenses *)

let min_dep = 100 and max_dep = 200 and effectif = 30 ;;

let entier_alea p q = p + random__int q ;;

let cree_ligne nom = let montant = entier_alea min_dep max_dep 
 in concat [nom;"*"; string_of_int montant;"\n"] ;;

let enregistre_etat etat nom_fich = 
 let fd = open_out nom_fich in 
  do_list (output_string fd) etat; 
  close_out fd ;;

let cree_etat n = 
 let l = cree_liste n noms prenoms in 
 map cree_ligne l ;;

enregistre_etat (cree_etat effectif) "totor" ;;