From 7ad4aedc49e97a2a62de08c89b47a877adf9e076 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Thu, 7 Mar 2024 10:54:37 +0100
Subject: calculette_aoo: updated the way to evaluate the odds

---
 calculette_aoo/bin/dune    |  4 +++-
 calculette_aoo/bin/main.ml | 60 +++++++++++++++++++++++++++-------------------
 2 files changed, 38 insertions(+), 26 deletions(-)

(limited to 'calculette_aoo/bin')

diff --git a/calculette_aoo/bin/dune b/calculette_aoo/bin/dune
index 1177b56..3fee2aa 100644
--- a/calculette_aoo/bin/dune
+++ b/calculette_aoo/bin/dune
@@ -1,3 +1,5 @@
 (executable
  (name main)
- (libraries aoo))
+ (libraries 
+   zarith 
+   aoo))
diff --git a/calculette_aoo/bin/main.ml b/calculette_aoo/bin/main.ml
index c738cd7..37d015b 100644
--- a/calculette_aoo/bin/main.ml
+++ b/calculette_aoo/bin/main.ml
@@ -3,34 +3,33 @@ let cout_m = (110, 55, 35)
 let cout_rm = (50, 40, 20)
 let cout_pm = (5, 3, 1)
 let cout_fm = (100, 50, 30)
-let fm_oponent = 10
+let fm_oponent = 1
+let n = 3
+let ratio = Float.(to_int (pow 3.0 (of_int n)))
+
+let print_arr arr =
+  Format.printf "@[<v>%a@]@." (Format.pp_print_array Format.pp_print_int) arr
+
+let () = print_arr (Aoo.Roll.build_frequencies n)
+
+(* Calcule les probabilités de toucher contre les 10 prochains niveaux *)
+let compare_result = Aoo.Roll.compare 9 1
+
+let () =
+  Format.printf "%.4f - %s\n"
+    (compare_result |> Q.to_float)
+    (compare_result |> Q.to_string)
 
 let env : Aoo.Build.env =
   {
     cost_max = 1800
-  ; max_tours = 5.0
+  ; max_tours = 5
   ; cout_sort = 8
   ; degat_sort = 6
   ; fm_oponent
   ; frequencies = Aoo.Build.buil_freq_table 9 fm_oponent
   }
 
-(*
-let () = Random.self_init ()
-
-let roll_and_accumulate dices =
-  Seq.repeat () |> Seq.take dices
-  |> Seq.fold_left (fun res _ -> res + (1 + Random.int 6)) 0
-
-let delta_carac level =
-  Seq.repeat () |> Seq.take 1000000
-  |> Seq.fold_left
-       (fun acc _ ->
-         if roll_and_accumulate level > roll_and_accumulate (level - 2) then acc
-         else acc + 1)
-       0
-*)
-
 (* Définition des caractéristiques *)
 let a = Aoo.Carac.create 2 cout_a
 let m = Aoo.Carac.create 5 cout_m
@@ -38,12 +37,23 @@ let rm = Aoo.Carac.create 7 cout_rm
 let pm = Aoo.Carac.create 40 cout_pm
 let fm = Aoo.Carac.create 9 cout_fm
 let default = Aoo.Build.{ a; m; rm; pm; fm }
+let score1 = Aoo.Build.score env default
+let cost1 = Aoo.Build.cost default
+let () = print_endline @@ Printf.sprintf "Score du build : %f" score1
+let build3 = { default with fm = Aoo.Carac.incr ~step:1 fm }
+let score3 = Aoo.Build.score env build3
+let cost3 = Aoo.Build.cost build3
+let () = print_endline @@ Printf.sprintf "Score du build : %f" score3
+let () = print_endline @@ Printf.sprintf "%b" (score1 = score3)
+let () = print_endline @@ Printf.sprintf "%b" (cost1 < cost3)
 
-let () =
-  let build =
-    Aoo.Build.traverse env
-      (Aoo.Build.cost default, Aoo.Build.score env default)
-      (Aoo.Build.upgrade env default)
-  in
+(*
+   let () =
+     let build =
+       Aoo.Build.traverse env
+         (Aoo.Build.cost default, Aoo.Build.score env default)
+         (Aoo.Build.upgrade env default)
+     in
 
-  Aoo.Build.repr env Format.std_formatter build
+     Aoo.Build.repr env Format.std_formatter build
+*)
-- 
cgit v1.2.3