yoloq4

q4/q4.awk

+BEGIN{
+x = 1;
+m=1;
+n=1;
+correct = 0;
+}
+
+NR==FNR{
+x=NR;
+for(i=1;i<NF;i++){
+inp[$1,i]=$(i+1);
+}
+inp_fields[$1]=NF-1;
+ques_inp[m]=$1
+m++;
+}
+
+NR==x+FNR{
+for(i=1;i<NF;i++){
+op[$1,i]=$(i+1);
+}
+op_fields[$1]=NF-1;
+ans_op[n]=$1
+n++;
+}
+
+END{
+k=length(ans_op);
+for(i=1;i<=k;i++){
+min_ele=0
+if(inp_fields[ans_op[i]]<op_fields[ans_op[i]])
+min_ele=inp_fields[ans_op[i]]
+else
+min_ele=op_fields[ans_op[i]]
+
+for(j=1;j<=min_ele;j++){
+if(inp[ans_op[i],j]==op[ans_op[i],j])
+correct++
+}
+}
+print correct
+}
+