Return to cross.icn CVS log

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

Annotation of 43BSD/contrib/icon/samples/cross.icn, revision 1.1.1.1

1.1       root        1: #
                      2: #          W O R D   I N T E R S E C T I O N S
                      3: #
                      4: 
                      5: #  This program procedure accepts string pairs from standard input, with
                      6: #  the strings separated by semicolons.  It then diagrams all the
                      7: #  intersections of the two strings in a common character.
                      8: 
                      9: procedure main()
                     10:    local line, j
                     11:    while line := read() do {
                     12:       write()
                     13:       j := upto(':',line)
                     14:       cross(line[1:j],line[j+1:0])
                     15:       }
                     16: end
                     17: 
                     18: procedure cross(s1,s2)
                     19:    local j, k
                     20:    every j := upto(s2,s1) do
                     21:       every k := upto(s1[j],s2) do
                     22:          xprint(s1,s2,j,k)
                     23: end
                     24: 
                     25: procedure xprint(s1,s2,j,k)
                     26:    write()
                     27:    every write(right(s2[1 to k-1],j))
                     28:    write(s1)
                     29:    every write(right(s2[k+1 to *s2],j))
                     30: end

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