Generating weight-distributed random number calculations Blocks template

weight-distributed-random-calculation.c

static double (^(^(^random_generator)(double(^(*))(double)))(double(^(*))(double)))(void) = ^ (double(^(*distributor))(double)) {
    srand48((unsigned int)time(0));
    return ^ (double(^(*number))(double)) {
        static double random;
        return ^ double {
            return (*number)((*distributor)((random = drand48())));
        };
    };
};