PersonalCorpus 版 (精华区)

152672 05:31:25 3 Mar 2002
Bozhang,HIT,P.R.China 1196 Pascal Accepted 0.821 sec 106K


var
    t:array[1..15000] of integer;
    i,j,k,n,m,q,sum:integer;
begin
    readln(n);
    for i:=1 to n do readln(t[i]);
    readln(m); sum:=0;
    while m>0 do begin
        readln(q);
        i:=1; j:=n;
        while i<j do begin
            k:=(i+j) div 2;
            if q>t[k] then i:=k+1 else if q<t[k] then j:=k-1 else begin i:=k
;j:=k end;
        end;
        if (i=j) and (q=t[i]) then inc(sum);
        dec(m);
    end;
    writeln(sum);
end.