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