Return to rand.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / c

Annotation of researchv9/jerq/src/lib/c/rand.c, revision 1.1.1.1

1.1       root        1: static long    randx = 1;
                      2: 
                      3: srand(x)
                      4: unsigned x;
                      5: {
                      6:        randx = x;
                      7: }
                      8: 
                      9: rand()
                     10: {
                     11:        return(((randx = randx*1103515245 + 12345)>>16) & 077777);
                     12: }

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