use v5.030;

use Config;
use PDL;
use Math::MPFR qw(:mpfr);
use Math::Random;
use Math::Random::MT::Auto;

say "# randbits ", $Config{randbits};
say;

{
    say "# CORE::rand()";
    CORE::srand(42);
    for (1..10) {
        my $r = CORE::rand();
        Rmpfr_dump( Math::MPFR->new($r) );
    }
    say;
}

{
    say "# PDL->random()";
    PDL::srandom(42);  # PDL::srand(42) using v2.062 ~ v2.089
    for (1..10) {
        my $r = PDL->random();
        Rmpfr_dump( Math::MPFR->new($r->at(0)) );
    }
    say;
}

{
    say "# Math::Random::random_uniform()";
    Math::Random::random_set_seed(42, 42);
    for (1..10) {
        my $r = Math::Random::random_uniform();
        Rmpfr_dump( Math::MPFR->new($r) );
    }
    say;
}

{
    say "# Math::Random::MT::Auto::rand()";
    Math::Random::MT::Auto::set_seed(42);
    for (1..10) {
        my $r = Math::Random::MT::Auto::rand();
        Rmpfr_dump( Math::MPFR->new($r) );
    }
    say;
}