13 lines
236 B
Awk
13 lines
236 B
Awk
|
{
|
||
|
|
split(substr($0,1,length($0)/2),arr,"")
|
||
|
|
r = substr($0,1+length($0)/2)
|
||
|
|
for (a in arr) {
|
||
|
|
c = arr[a]
|
||
|
|
if (index(r,c)>0) {
|
||
|
|
comm = c
|
||
|
|
}
|
||
|
|
}
|
||
|
|
S += index("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", comm)
|
||
|
|
}
|
||
|
|
END {print S}
|