11 lines
160 B
Plaintext
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"
|
||
|
|
}
|