(* -*- coding: utf-8 -*-
(* --- *)
(* jupyter: *)
(*   jupytext: *)
(*     text_representation: *)
(*       extension: .ml *)
(*       format_name: light *)
(*       format_version: '1.5' *)
(*       jupytext_version: 1.14.4 *)
(*   kernelspec: *)
(*     display_name: OCaml *)
(*     language: ocaml *)
(*     name: iocaml *)
(* --- *)

(* + [markdown] deletable=true editable=true
(* <h1> Problème de Huyghens </h1> *)

(* + [markdown] deletable=true editable=true
(* <h2> Présentation </h2> *)

(* + [markdown] deletable=true editable=true
(* Trois joueurs A, B et C participent au jeu suivant. Étant donné 4 jetons blancs et 8 jetons noirs, A, *)
(* B et C tirent au hasard à tour de rôle un jeton (sans le remettre ensuite). *)
(* Le jeu se poursuit ainsi jusqu’à ce que le premier qui tire un jeton blanc gagne la partie. *)
(* Sachant que le joueur A commence la partie, suivi de B et C, quelles sont les chances de chacun de *)
(* l’emporter ? *)
(* Simuler cette expérience 10 000 fois et calculer les probabilités demandées. *)

(* + [markdown] deletable=true editable=true
(* <h2> Code OCaml </h2> *)

(* + deletable=true editable=true
open Random;;
Random.self_init;;

(* + deletable=true editable=true
let jeu () =
   "à compléter"


let joueurs =["A";"B";"C"];;
let gagnants=[|0;0;0|];; (*compte le nombre d’essais gagnants de $A$, $B$ et $C$.*)
let nbre_essais=10000;;

let rec loop num_essai =
   "à compléter"

loop 0;;

(* + deletable=true editable=true
for joueur=0 to 2 do
    print_string(List.nth joueurs joueur);
    print_string " = ";
    print_float((float_of_int gagnants.(joueur))/.(float_of_int nbre_essais));
    print_newline();
done;;

(* + deletable=true editable=true


StarcoderdataJupyterScriptsDedupFiltered