personal/time-to-botec
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

savepoint while wrangling types.

Browse Source
This commit is contained in:
NunoSempere 2023-10-14 23:48:58 +01:00
parent fb21e4baa6
commit 90e48d2249
5 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
ocaml/out/samples
View File

Binary file not shown.

BIN
ocaml/out/samples.cmi
View File

Binary file not shown.

BIN
ocaml/out/samples.cmx
View File

Binary file not shown.

BIN
ocaml/out/samples.o
View File

Binary file not shown.

2
ocaml/samples.ml
View File

@ -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 chosenSamplerIndex = findIndex cumsummed_normalized_weights (fun x -> x < p) in
let sample = match chosenSamplerIndex with let sample = match chosenSamplerIndex with
| None -> None | None -> None
| Some(i) -> Some(1.0) (* (samplers.(i) ()) |> Some *) | Some(i) -> Some((samplers.(i) ())) (* (samplers.(i) ()) |> Some *)
in in
sample sample