time-to-botec

commit 90e48d2249fd451286322586336afe67f94d9280
parent fb21e4baa6a17d3edfc625be6059c806591da7a8
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Sat, 14 Oct 2023 23:48:58 +0100

savepoint while wrangling types.

Diffstat:
M
ocaml/out/samples
 | 
0

M
ocaml/out/samples.cmi
 | 
0

M
ocaml/out/samples.cmx
 | 
0

M
ocaml/out/samples.o
 | 
0

M
ocaml/samples.ml
 | 
2
+-

5 files changed, 1 insertion(+), 1 deletion(-)
diff --git a/ocaml/out/samples b/ocaml/out/samples
Binary files differ.
diff --git a/ocaml/out/samples.cmi b/ocaml/out/samples.cmi
Binary files differ.
diff --git a/ocaml/out/samples.cmx b/ocaml/out/samples.cmx
Binary files differ.
diff --git a/ocaml/out/samples.o b/ocaml/out/samples.o
Binary files differ.
diff --git a/ocaml/samples.ml b/ocaml/samples.ml
@@ -51,7 +51,7 @@ let mixture (samplers: (unit -> float) array) (weights: float array) =
         let chosenSamplerIndex = findIndex cumsummed_normalized_weights (fun x -> x < p) in
         let sample = match chosenSamplerIndex with
           | None -> None
-          | Some(i) -> Some(1.0) (* (samplers.(i) ()) |> Some *)
+          | Some(i) -> Some((samplers.(i) ())) (* (samplers.(i) ()) |> Some *)
         in
         sample