Return to t-complex.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / libtest

Annotation of 43BSD/contrib/icon/libtest/t-complex.icn, revision 1.1

1.1     ! root        1: link "../ilib/complex"
        !             2: 
        !             3: procedure main()
        !             4:   x := list(6)
        !             5:    while s1 := read() do {
        !             6:       s2 := read() | stop()
        !             7:       x[1] := strcpx(s1)
        !             8:       x[2] := strcpx(s2)
        !             9:       x[3] := cpxadd(x[1],x[2])
        !            10:       x[4] := cpxdiv(x[1],x[2])
        !            11:       x[5] := cpxmul(x[1],x[2])
        !            12:       x[6] := cpxsub(x[1],x[2])
        !            13:       every write(cpxstr(!x))
        !            14:       }
        !            15: end

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