Return to t.index CVS log

Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / awk / test

Annotation of 43BSDReno/usr.bin/awk/test/t.index, revision 1.1.1.1

1.1       root        1: {      n = length
                      2:        d = 0
                      3:        for (i = 1; i <= n; i++)
                      4:                if ((k = index($0, substr($0, i))) != i)
                      5:                        d = 1
                      6:        if (d)
                      7:                print $0, "has duplicate letters"
                      8: }

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