Return to eft CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / apl / apl.vax / lib / fn

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