BSD 1 development

[unix-history] / trek / ranf.c

ranf(max)
int     max;
{
       register int    t;

       if (max <= 0)
               return (0);
       t = rand() >> 5;
       return (t % max);
}


double franf()
{
       double          t;
       t = rand() & 077777;
       return (t / 32767.0);
}