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

fun: save on stack overflow

Browse Source 
just reduce the num of samples to avoid it
This commit is contained in:
NunoSempere 2023-10-15 01:00:47 +01:00
parent 13194bc3ca
commit 7ce4658d30
3 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.o
View File

Binary file not shown.

2
ocaml/samples.ml
View File

@ -92,7 +92,7 @@ let () =
let p3 = p1 *. p2 in let p3 = p1 *. p2 in
let weights = [ 1. -. p3; p3 /. 2.; p3 /. 4.; p3/. 4. ] in let weights = [ 1. -. p3; p3 /. 2.; p3 /. 4.; p3/. 4. ] in
let sampler () = mixture [ sample0; sample1; sampleFew; sampleMany ] weights in let sampler () = mixture [ sample0; sample1; sampleFew; sampleMany ] weights in
let n = 1_000 in let n = 1_000_000 in
let samples = List.init n (fun _ -> sampler ()) in let samples = List.init n (fun _ -> sampler ()) in
match unwind samples with match unwind samples with
| Error err -> Printf.printf "Error %s\n" err | Error err -> Printf.printf "Error %s\n" err