Searched refs:Drand01 (Results 1 - 6 of 6) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs55 #ifndef Drand01
56 # define Drand01() ((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15))
323 /* We call pp_rand here so that Drand01 get initialized if rand()
333 int swap = (int)(Drand01() * (double)(index--));
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Duconfig.h1287 /* Drand01:
1300 * random number generator (see Drand01).
1307 #define Drand01() ((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15)) /**/ macro
H A Dpp_sort.c761 j = (size_t)(n-- * Drand01());
H A Dutil.c4400 myseed = (UV)(Drand01() * (NV)UV_MAX);
4407 (UV)(Drand01() * (NV)((1 << ((UVSIZE * 8 - RANDBITS))) - 1));
4410 myseed = (UV)(Drand01() * (NV)UV_MAX); /* One more chance. */
H A Dconfig_h.SH1311 /* Drand01:
1324 * random number generator (see Drand01).
1331 #define Drand01() $drand01 /**/
H A Dpp.c2716 value *= Drand01();

Completed in 69 milliseconds