Return to rnd.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack

Annotation of 43BSDTahoe/games/hack/rnd.c, revision 1.1

1.1     ! root        1: /* rnd.c - version 1.0.2 */
        !             2: 
        !             3: #define RND(x) ((random()>>3) % x)
        !             4: 
        !             5: rn1(x,y)
        !             6: register x,y;
        !             7: {
        !             8:        return(RND(x)+y);
        !             9: }
        !            10: 
        !            11: rn2(x)
        !            12: register x;
        !            13: {
        !            14:        return(RND(x));
        !            15: }
        !            16: 
        !            17: rnd(x)
        !            18: register x;
        !            19: {
        !            20:        return(RND(x)+1);
        !            21: }
        !            22: 
        !            23: d(n,x)
        !            24: register n,x;
        !            25: {
        !            26:        register tmp = n;
        !            27: 
        !            28:        while(n--) tmp += RND(x);
        !            29:        return(tmp);
        !            30: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.