usr/src/games/trek/ranf.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that this notice is preserved and that due credit is given
 * to the University of California at Berkeley. The name of the University
 * may not be used to endorse or promote products derived from this
 * software without specific prior written permission. This software
 * is provided ``as is'' without express or implied warranty.
 */

#ifndef lint
static char sccsid[] = "@(#)ranf.c      5.2 (Berkeley) %G%";
#endif /* not lint */

# include       <stdio.h>

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);
}