[BACK]Return to AW CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib

Annotation of 43BSD/contrib/apl/lib/AW, revision 1.1

1.1     ! root        1: n��*.KB�&       Hdef def ;b9;e9;alph9;x9;y9
        !             2: x9 { y9 { ,L'
        !             3: }(~':'Ex9)/t9
        !             4: b9{BJ(^/1 0='AW'Ex9)/'x9[(x9=''A'')/IRx9]{''W'''
        !             5: }((V/^/' '=x9)V~V/ 2 4 E1YRx9{':' mat9 ' ',b9{,x9)/m9
        !             6: alph9{'abcdefghijklmnopqrstuvwxyzaFbFcFdFeFfFgFhFiFjFkFlFmFnFoFpFqFrFsFtFuFvFwFxFyFzF0123456789'
        !             7: e9{'z9{',(('A'Eb9)/' x9 '),x9[1;],('W'Eb9)/' y9  '
        !             8: e9{e9,,(V/((0 ,0#1URb9) Ub9)#,' ')/-b9{(0 0 R' ') specify9O|b9
        !             9: }(2=1YRx9)/l9
        !            10: e9 {e9 rjn9 'z9{',x9[4;]
        !            11: e9{e9 rjn9 '}(',x9[3;],')/0'
        !            12: l9: e9{e9 rjn9 'z9{',x9[2;]
        !            13: Lfx  ':' mat9 replace9 `1U,e9,':'
        !            14: fns { ((~fns find9 x9[1;])/[1] fns) rjn9 y9
        !            15: }0
        !            16: t9: }(~V/y9{ fns find9 x9)/m9
        !            17: L{ y9/[1] fns
        !            18: }0
        !            19: m9: 'not done'
        !            20: 
        !            21: mat9z{a mat9 b;c;d;e
        !            22: e{Rd{`1U(c,0)-0,c{(+/~c)UH|c{(~#\''''=b)^a=b{,b,a
        !            23: z{(+/^\' '=z)O|z{ 0 `1 U(e,c)R(,O|dJ.&Ic{S/d)\b
        !            24: 
        !            25: rjn9r {a rjn9 b;x
        !            26: x{(`1YRa{(`2Y 1 1 ,Ra)R(,a),' ')S`1YRb{(`2Y 1 1 ,Rb)R(,b),' '
        !            27: r{(((1YRa),x)Ya,((Ra)+0,x)R' '),[1]((1YRb),x)Yb,((Rb)+0,x)R' '
        !            28: 
        !            29:        specify9z{a specify9 b;c;d;e
        !            30: z{ 0 0 R' '
        !            31: }(0=Rb{((bI'{')DRb)Ub)/0
        !            32: c { ';',O|(`1+cI' ')Yc{(+/^\' '=c)Uc{(+/^\bEalph9)Yb
        !            33: z {(~V/a find9 c) /-(1,Rc)Rc
        !            34: nxt: z { z rjn9(a rjn9 c) specify9 b
        !            35:               replace9z{replace9 x;a;b;c;d
        !            36: }(~V/'AW'Ex)/nil
        !            37: z{' ',O\' ',[1]((1,Rx)Rx),[1]' '
        !            38: z[b{(c^xEd)/IRx;]{(2 4 R' y9  x9 ')[(c{(~#\''''=x)^a$Rd)/a{(d{'WA')Ix;]
        !            39: c{(Rz)R 0 0 1 0
        !            40: c[b; 1 2 4]{1
        !            41: z{(,c)/,z
        !            42: }0
        !            43: nil:z { ,x
        !            44: &fnfac(&fac:WXfac W-1 :W=0:1&fnb+&b:(z,0)+0,z{b W-1:W=0:1&fnplus&plus:A+W
        !            45: find9r { l find9 n
        !            46: n{(n#' ')/n
        !            47: r {(1URl)R0
        !            48: }((Rn)>1URl)/0
        !            49: l { ((1YRl),Rn)Yl
        !            50: r {^/l=(Rl)Rn
        !            51: &fns&&& ttimettime
        !            52: L { 'total time is',(,B (.01XS(BN21)%.6)), ' secs.'
        !            53: 
unix.superglobalmegacorp.com

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