19 lines
322 B
Awk
19 lines
322 B
Awk
BEGIN {W=14}
|
|
{
|
|
for (i=1; i<=length($1); i++) {
|
|
window = substr($1,i,W)
|
|
S=0
|
|
# compare each char of window to all char of window
|
|
for (j=1; j<=W; j++) {
|
|
for (k=1; k<=W; k++) {
|
|
if (substr(window,j,1) == substr(window,k,1)) {
|
|
S+=1
|
|
}
|
|
}
|
|
}
|
|
if (S == W) {
|
|
print "fin : " i + W - 1
|
|
next
|
|
}
|
|
}
|
|
} |