[BACK]Return to AW CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 43BSDTahoe / new / apl / apl.vax / lib

Annotation of 43BSDTahoe/new/apl/apl.vax/lib/AW, revision 1.1.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.