Return to af.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / src

Annotation of 43BSD/contrib/apl/src/af.c, revision 1.1

1.1     ! root        1: static char Sccsid[] = "af.c @(#)af.c  1.1     10/1/82 Berkeley ";
        !             2: #include "apl.h"
        !             3: 
        !             4: #ifdef vax
        !             5: #define        MAXRAND 2147483648.
        !             6: #else
        !             7: #define        MAXRAND 32768.
        !             8: #endif
        !             9: 
        !            10: ex_deal()
        !            11: {
        !            12:        register struct item *p;
        !            13:        register m, n;
        !            14:        double f;
        !            15:        data d1, d2;
        !            16: 
        !            17:        m = topfix();
        !            18:        n = topfix();
        !            19:        if(m < 0 || m > n)
        !            20:                error("deal D");
        !            21:        p = newdat(DA, 1, m);
        !            22:        datum = thread.iorg;
        !            23:        for(; n!=0; n--) {
        !            24:                f = m;
        !            25:                f /= n;
        !            26:                if(rand()/MAXRAND < f) {
        !            27:                        putdat(p, datum);
        !            28:                        m--;
        !            29:                }
        !            30:                datum += one;
        !            31:        }
        !            32:        m = p->size;
        !            33:        while(m > 0) {
        !            34:                f = rand()/MAXRAND;
        !            35:                n = m * f;
        !            36:                m--;
        !            37:                if(n != m) {
        !            38:                        p->index = n;
        !            39:                        d1 = getdat(p);
        !            40:                        p->index = m;
        !            41:                        d2 = getdat(p);
        !            42:                        p->index = n;
        !            43:                        putdat(p, d2);
        !            44:                        p->index = m;
        !            45:                        putdat(p, d1);
        !            46:                }
        !            47:        }
        !            48:        *sp++ = p;
        !            49: }
        !            50: 
        !            51: data
        !            52: ex_rand(d)
        !            53: data d;
        !            54: {
        !            55:        double f;
        !            56: 
        !            57:        f = (rand()/MAXRAND) * d;
        !            58:        d = floor(f) + thread.iorg;
        !            59:        return(d);
        !            60: }

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