1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
array_wrapper* our_gsl_ran_shuffle(const gsl_rng* r, int* v, size_t n) {
size_t cell_size = sizeof(int);
array_wrapper *w = array_wrapper_alloc(n, awInt);
memcpy((int*)w->data, v, n*cell_size);
gsl_ran_shuffle(r, (int*)w->data, n, cell_size);
return w;
}
array_wrapper* our_gsl_ran_choose(const gsl_rng* r, size_t k, int* v, size_t n) {
size_t cell_size = sizeof(int);
array_wrapper *w = array_wrapper_alloc(k, awInt);
gsl_ran_choose(r, (int*)w->data, k, v, n, cell_size);
return w;
}
array_wrapper* our_gsl_ran_sample(const gsl_rng* r, size_t k, int* v, size_t n) {
size_t cell_size = sizeof(int);
array_wrapper *w = array_wrapper_alloc(k, awInt);
gsl_ran_sample(r, (int*)w->data, k, v, n, cell_size);
return w;
}
|
