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

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.