shithub: kwa

ref: 6d0ade9e0f10517872304e94c2c5d0e3a14c426d
dir: /test/t.index/

View raw version
{	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"
}