Return to meander.icn CVS log

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

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

1.1       root        1: #
                      2: #          M E A N D E R I N G   S T R I N G S
                      3: #
                      4: 
                      5: #  This main procedure accepts specifications for meandering strings
                      6: #  from standard input with the alphabet separated from the length by
                      7: #  a colon.
                      8: 
                      9: procedure main()
                     10:    local line, alpha, n
                     11:    while line := read() do {
                     12:       line ? if alpha := tab(upto(':')) then {
                     13:          move(1)
                     14:          if n := integer(tab(0)) then write(meander(alpha,n))
                     15:          else write("erroneous input")
                     16:          }
                     17:          else write("erroneous input")
                     18:       }
                     19: end
                     20: 
                     21: procedure meander(alpha,n)
                     22:    local result, t, i, c, k
                     23:    i := k := *alpha
                     24:    t := n-1
                     25:    result := repl(alpha[1],t)
                     26:    while c := alpha[i] do {
                     27:       if find(result[-t:0] || c,result)
                     28:       then i -:= 1
                     29:       else {result ||:= c; i := k}
                     30:       }
                     31:    return result
                     32: end

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