view release on metacpan or  search on metacpan

scripts/testRNG_performance.pl  view on Meta::CPAN

        my $pdl = $rng->simulate_trunc(
            random_dim      => [$iter],
            distr           => $distr,
            params          => $params,
            left_trunc_lmt  => $lower_trunc_limit,
            right_trunc_lmt => $upper_trunc_limit,

        );
    }
);
$benchmark->add_instance(
    PDLGSL_PERLRNGPDL_WO_OC => sub {
        my $pdl = $rng_PERLRNGPDL->simulate_trunc(
            random_dim      => [$iter],
            distr           => $distr,
            params          => $params,
            left_trunc_lmt  => $lower_trunc_limit,
            right_trunc_lmt => $upper_trunc_limit,

        );
    }
);
$benchmark->add_instance(
    MathMLGSL_PERLRNG_WO_OC => sub {
        my $pdl = $rng_PERLRNG->simulate_trunc(
            random_dim      => [$iter],
            distr           => $distr,
            params          => $params,
            left_trunc_lmt  => $lower_trunc_limit,
            right_trunc_lmt => $upper_trunc_limit,

        );
    }
);
$benchmark->add_instance(
    PDLGSL_PDLUNIF_WO_OC => sub {
        my $pdl = $rng_RNG->simulate_trunc(
            random_dim      => [$iter],
            distr           => $distr,
            params          => $params,
            left_trunc_lmt  => $lower_trunc_limit,
            right_trunc_lmt => $upper_trunc_limit,

        );
    }
);
$benchmark->add_instance(
    PDLGSL_PDLGSLUNIF_WO_OC => sub {
        my $pdl = $rng_PDLGSLUNIF->simulate_trunc(
            random_dim      => [$iter],
            distr           => $distr,
            params          => $params,
            left_trunc_lmt  => $lower_trunc_limit,
            right_trunc_lmt => $upper_trunc_limit,

        );
    }
);


$benchmark->run_iterations($benchmark_reps);