awk/testdir/t.index
Arnold D. Robbins d6c466c367 Extract testdir.
2019-06-23 03:13:57 -06:00

11 lines
160 B
Plaintext

{ n = length
d = 0
for (i = 1; i <= n; i++)
if ((k = index($0, substr($0, i))) != i) {
d = 1
break;
}
if (d)
print $0, "has duplicate letters"
}