forked from personal/squiggle.c
35 lines
830 B
C
35 lines
830 B
C
#include "../squiggle.h"
|
|
#include "../squiggle_more.h"
|
|
#include <math.h>
|
|
#include <stdint.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
int main()
|
|
{
|
|
// set randomness seed
|
|
uint64_t* seed = malloc(sizeof(uint64_t));
|
|
*seed = 1000; // xorshift can't start with a seed of 0
|
|
/*
|
|
for (int i = 0; i < 100; i++) {
|
|
double draw = sample_unit_uniform(seed);
|
|
printf("%f\n", draw);
|
|
|
|
}*/
|
|
// Test division
|
|
// printf("\n%d\n", 10 % 3);
|
|
//
|
|
|
|
int n_samples = 100, n_threads = 16;
|
|
double* results = malloc(n_samples * sizeof(double));
|
|
double sampler_scratchpad(uint64_t* seed){
|
|
return 1;
|
|
}
|
|
parallel_sampler(sampler_scratchpad, results, n_threads, n_samples);
|
|
for(int i=0; i<n_samples; i++){
|
|
printf("Sample %d: %f\n", i, results[i]);
|
|
}
|
|
|
|
free(seed);
|
|
}
|