Math-Random-MTwist
view release on metacpan or search on metacpan
mtwist/randistrs.c view on Meta::CPAN
register uint32_t
ranval; /* Random value from mts_lrand */
#ifdef MT_CACHING
if (range != lastrange)
#endif /* MT_CACHING */
{
/*
* Range is different from last time, recalculate mask.
*
* A few iterations could be trimmed off of the loop if we
* started rangemask at the next power of 2 above
* RD_UNIFORM_THRESHOLD. However, I don't currently know
* a formula for generating that value (though there is
* probably one in HAKMEM).
*/
#ifdef MT_CACHING
lastrange = range;
#endif /* MT_CACHING */
for (rangemask = 1;
rangemask < range && rangemask != 0;
mtwist/randistrs.c.orig view on Meta::CPAN
register uint32_t
ranval; /* Random value from mts_lrand */
#ifdef MT_CACHING
if (range != lastrange)
#endif /* MT_CACHING */
{
/*
* Range is different from last time, recalculate mask.
*
* A few iterations could be trimmed off of the loop if we
* started rangemask at the next power of 2 above
* RD_UNIFORM_THRESHOLD. However, I don't currently know
* a formula for generating that value (though there is
* probably one in HAKMEM).
*/
#ifdef MT_CACHING
lastrange = range;
#endif /* MT_CACHING */
for (rangemask = 1;
rangemask < range && rangemask != 0;
( run in 2.319 seconds using v1.01-cache-2.11-cpan-71847e10f99 )