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

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.