Return to det CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib / fn

Annotation of 43BSD/contrib/apl/lib/fn/det, revision 1.1.1.1

1.1       root        1: z { det a ; l;n;i;j
                      2:  n { (Ra)[1]
                      3:  i { 0
                      4:  z { 1
                      5: l1: } (n= i{ i+1)/ fin
                      6:  w { |(i-1)Ua[;i]
                      7:  j { (i-1)+wIS/w
                      8:  }(i=j) /skip
                      9:  a[i,j;]{a[j,i;]
                     10:  z { -z
                     11: skip: } (0=z { zX a[i;i]) / 0
                     12:  l { ((iR0),iUa[;i])%a[i;i]
                     13:  a { a-lJ.Xa[i;]
                     14:  }l1
                     15: fin: z { zXa[n;n]

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