PDL::srandom(42);    # not PDL->srandom(42)
$r = PDL->random();  # not PDL::random();

##</code><code>##

# Sets the seed of the base generator uniquely between workers.
# The new seed is computed using the current seed and ID value.
# One may set the seed at the application level for predictable
# results (non-thread workers only). Ditto for Math::Prime::Util,
# Math::Random, Math::Random::MT::Auto, and PDL.
#
# MCE 1.892, 2024-06-08
#     Removed check if spawning threads i.e. use_threads.
#     Predictable output matches non-threads for CORE,
#     Math::Prime::Util, and Math::Random::MT::Auto.
#     https://perlmonks.org/?node_id=11159834

{
   my $_wid  = $_args[1];
   my $_seed = abs($self->{_seed} - ($_wid * 100000)) % 2147483560;

   CORE::srand($_seed) if (!$self->{use_threads} || $] ge '5.020000'); # drand48
   Math::Prime::Util::srand($_seed) if $INC{'Math/Prime/Util.pm'};

   if (!$self->{use_threads}) {
      PDL::srand($_seed) if $INC{'PDL.pm'} && PDL->can('srand'); # PDL 2.062 ~ 2.089
      PDL::srandom($_seed) if $INC{'PDL.pm'} && PDL->can('srandom'); # PDL 2.089_01+
   }
}

if (!$self->{use_threads} && $INC{'Math/Random.pm'}) {
   my ($_wid, $_cur_seed) = ($_args[1], Math::Random::random_get_seed());

   my $_new_seed = ($_cur_seed < 1073741781)
      ? $_cur_seed + (($_wid * 100000) % 1073741780)
      : $_cur_seed - (($_wid * 100000) % 1073741780);

   Math::Random::random_set_seed($_new_seed, $_new_seed);
}

if ($INC{'Math/Random/MT/Auto.pm'}) {
   my ($_wid, $_cur_seed) = (
      $_args[1], Math::Random::MT::Auto::get_seed()->[0]
   );
   my $_new_seed = ($_cur_seed < 1073741781)
      ? $_cur_seed + (($_wid * 100000) % 1073741780)
      : $_cur_seed - (($_wid * 100000) % 1073741780);

   Math::Random::MT::Auto::set_seed($_new_seed);
}