squiggle.c

commit fb6edbff0c674508c212e1ce127f5cf6ae451e3e
parent 91ab0d27dcc32d75eab795204a8095f5fed2ba7c
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Fri, 11 Aug 2023 14:01:02 +0200

add sample_laplace

Diffstat:
M
squiggle.c
 | 
4
++++
M
squiggle.h
 | 
1
+

2 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/squiggle.c b/squiggle.c
@@ -134,6 +134,10 @@ double sample_beta(double a, double b, uint64_t* seed)
     return gamma_a / (gamma_a + gamma_b);
 }
 
+double sample_laplace(double successes, double failures, uint64_t* seed){
+	return sample_beta(successes + 1, failures + 1, seed);
+}
+
 // Array helpers
 double array_sum(double* array, int length)
 {
diff --git a/squiggle.h b/squiggle.h
@@ -19,6 +19,7 @@ double sample_to(double low, double high, uint64_t* seed);
 
 double sample_gamma(double alpha, uint64_t* seed);
 double sample_beta(double a, double b, uint64_t* seed);
+double sample_laplace(double successes, double failures, uint64_t* seed);
 
 // Array helpers
 double array_sum(double* array, int length);