funtools/funtest/sample.fc


1
2
3
4
5
6
7
8
9
10
11
12
13

global
#include <stdlib.h>
end

local
long int seed = getenv("SEED") ? atoi(getenv("SEED")) : 1 ;
double limit = getenv("LIMIT") ? atof(getenv("LIMIT")) : 0.8;

srand48(seed);
end

cur->x;
if ( drand48() > limit ) continue;