Some change for make working salut OracleGen and add the read initial value in topologie in unison

test/k-clustering/state.ml

+(* Time-stamp: <2022-07-12 11:01:25 emile> *)
+
 open Algo
           
 let d = max_degree() 
@@ -6,11 +8,14 @@ type t = {
   isRoot:bool;
   alpha:int;
   par:int
-}
+  }
+
+(*let boolVint (b:bool):int =
+  if b then 1 else 0*)
 
 let (to_string: (t -> string)) =
   fun s ->
-    Printf.sprintf "alpha=%d" s.alpha
+    Printf.sprintf "isRoot=%b alpha=%d par=%d" s.isRoot s.alpha s.par
 
 let (of_string: (string -> t) option) =
   Some (fun s ->
@@ -21,4 +26,4 @@ let (copy : ('v -> 'v)) = fun x -> x
 let actions = ["change_alpha"]
 
 let k = 2
-  
+ 

test/unison/state.ml

 
 type t = int
 let to_string = (fun s -> Printf.sprintf "c=%i" s)
-let of_string = None
+
+let (of_string: (string -> t) option) =
+  Some (fun s ->
+      let res = Scanf.sscanf s "c=%d" (fun i -> i ) in
+      res
+    )
+
+
 let copy x = x
 let actions = ["g"]
 let potential = None

test/unison/unison.ml

-(* Time-stamp: <modified the 05/03/2020 (at 21:38) by Erwan Jahier> *)
+(* Time-stamp: <2022-07-18 15:47:53 emile> *)
 
 open Algo
 
 (* let m=10 (* max 2 (1+2*diameter ()) *) *)
 let diameter = Algo.diameter ()
     
-let m = max 2 (2*diameter-1) 
+let m = max 2 (2*diameter-1)
 
 let (init_state: int -> string -> 'v) =
   fun _ _ ->