Return to dft CVS log

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

Annotation of 43BSD/contrib/apl/lib/fn/dft, revision 1.1

1.1     ! root        1: z { w dft x;d;e;f;g;h;i;j;k;l;y
        !             2: d { ' 0123456789.`'
        !             3: }(V/w#Dw{,w+(h{0)Ml{1<RRx)/dfterr+0Mf{2
        !             4: hr1: }(3 2 1 <RRx)/(dfterr+f{0), 2 3 +hr1
        !             5: hr2: }(RRRx{((V/ 1 2 =Rw)O| 1 2)O\(1,R,x)Rx)/2+hr2
        !             6: x { (0 1 1 /Rx)Rx
        !             7: hr3: }((^/(Rw)# 1 2 ,2Me{1RO|Rx),1#Rw)/(dfterrMf{1),3+hr3
        !             8: i { 1+S/0,,D10O*|x+1>|x
        !             9: w { (2+i+w+(w#0)+V/,x<0),w
        !            10: }(V/2>-/[1] w{O\(e,2)Rw)/dfterr+0Mf{2
        !            11: z { ((k{1RRx),+/w[1;])R' '
        !            12: x { j-1|j{0.5+xM10*(Rx)Rw[2;]
        !            13: dftlp: }(e<h{h+1)/dftend
        !            14: j { 1 + O\ ((i{w[1;h])R10)N |y{x[;h]
        !            15: j { (,j)Mg{,O\(O|Rj)R(,O\(j#1)V.^(Ii)J.$Ii-f+1),(kM1+f{w[2;h])R1
        !            16: hr4: }(^/0$y)/2+hr4
        !            17: j[(i-+/(k,i)Rg)+iM`1+Ik]{12My<0
        !            18: j { (k,i)Rj
        !            19: hr5: }(0=f)/3+hr5
        !            20: j { j[;(1O|Ig),(g{-/w[;h])+If]
        !            21: j[;g] { 11
        !            22:  }dftlpMRRRz[;(+/w[1;Ih-1])+Ii]{d[1+j]
        !            23: dftend: }l/0
        !            24:  }0MRz{,z
        !            25: dfterr: 'dft ',(3 6 R' rank lengthdomain')[f+1;],' problem.'

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