savepoint, too tired.

This commit is contained in:
NunoSempere 2023-10-14 20:57:21 +01:00
parent 2cddf557bf
commit fa73c33c27
5 changed files with 6 additions and 2 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -4,7 +4,8 @@ let normal_95_ci_length = 1.6448536269514722
(* Array manipulation helpers *)
let sumFloats xs = List.fold_left(fun acc x -> acc +. x) 0.0 xs
let normalizeXs xs = let sum_xs = sumFloats xs in
let normalizeXs xs =
let sum_xs = sumFloats xs in
List.map(fun x -> x /. sum_xs) xs
let cumsumXs xs =
let _, cum_sum = List.fold_left(fun (sum, ys) x ->
@ -31,7 +32,10 @@ let sampleTo low high =
let mixture (samplers: (unit -> float) list) (weights: float list) =
match (List.length samplers == List.length weights) with
| false -> None
| true -> let normalized_weights = cumsumXs (normalizeXs weights) in Some(1.0)
| true ->
let normalized_weights = normalizeXs weights in
let cumsummed_normalized_weights = cumsumXs normalized_weights in
Some(1.0)
let () =