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

tweak: give up on piping to Some

Browse Source
This commit is contained in:
NunoSempere 2023-10-14 23:59:40 +01:00
parent 90e48d2249
commit ce119253b7
5 changed files with 3 additions and 2 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.

5
ocaml/samples.ml
View File

@ -41,7 +41,8 @@ let sampleTo low high =
let logstd = (loghigh -. loglow) /. (2.0 -. normal_95_ci_length ) in
sampleLognormal logmean logstd
let mixture (samplers: (unit -> float) array) (weights: float array) =
let (|>) x f = f x
let mixture (samplers: (unit -> float) array) (weights: float array): float option =
match (Array.length samplers == Array.length weights) with
| false -> None
| true ->
@ -51,7 +52,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((samplers.(i) ())) (* (samplers.(i) ()) |> Some *)
| Some(i) -> Some(samplers.(i) ())
in
sample