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     ! 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.