Return to eft CVS log

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

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

1.1     ! root        1: r { f eft dr;nm;ex;vec;er;orig
        !             2: orig { ?1
        !             3: }(~er{~(2<RRdr)V1#RRf)/efterr
        !             4: }(Xer{(2#Rf)^(`1Y1,Rdr)#.5XRf)/efterr
        !             5: }(Xer{2XV/4>-/((.5XRf),2)Rf)/efterr
        !             6: }(0#RRdr)/ok
        !             7: dr { ,dr
        !             8: ok: f {(2X`1YRdr)Rf
        !             9: nm { f -(Rf)R4 0
        !            10: ex { D(0#dr)X10O*|dr+dr=0
        !            11: r{nm NJ drX10*-ex
        !            12: r {r,(((`1+RRdr)/1YRdr),4X`1YRdr)R'e','+-'[orig+0>,ex],O\'0123456789'[orig+10 10N|,ex]
        !            13: nm { (nmX(Rnm)R1 0)+(Rnm)R0 4
        !            14: vec{(`1YRr)R0
        !            15: vec[`1Uorig++\nm]{1
        !            16: }(2=RRdr)/mat
        !            17: r{r[H|H|#\vec]
        !            18: }0
        !            19: mat:r{r[;H|H|#\vec]
        !            20: }0
        !            21: efterr: 'eft ',(,(3 6R' rank lengthdomain')[orig+er;]),' problem.'

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