14 lines
317 B
Awk
14 lines
317 B
Awk
NR%3==1 {split($0,arr,"");for(a in arr){A[arr[a]]=1}}
|
|
NR%3==2 {split($0,arr,"");for(a in arr){B[arr[a]]=1}}
|
|
NR%3==0 {
|
|
split($0,arr,"")
|
|
for (a in arr) {
|
|
c = arr[a]
|
|
if ((c in A)&&(c in B)) {comm = c}
|
|
}
|
|
S += index("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", comm)
|
|
delete A
|
|
delete B
|
|
}
|
|
END {print S}
|