2017.5.21测试 题二 朋友

题二 朋友

（ friend. .* * ）

【问题描述】

    mxy 即将前往新世界。

    在前往新世界的过程中，ta 遇见了两种人。一种是只和 lowb 做朋友，即当且仅当自己的能力值大于对方时他们会成为朋友，另一种是大神我们做朋友，即当且仅当自己的能力

值小于对方时他们会成为朋友。

    现在告诉你两种人的能力值。请你计算一共有多少对友好关系。

【输入】

    每组测试数据有三行。

    第一行有两个整数 m，n(1 <= m，n <= 20000)，分别代表前者人数和后者人数。

    第二行 m 个数，第三行 n 个数，代表各自的能力值。

【输出】

   一行一个整数，表示有多少对友好关系。

【输入输出样例】

friend.in

5 3

8 1 7 3 1

3 6 1

friend.out

7

var
 a,b:array[0..20000] of longint;
 m,n,i,j,ans,l,r,mid,t:longint;
procedure qsort(l,r:longint);//快排
var
 i,j,key,temp:longint;
begin
 if l>=r then exit;
 i:=l;j:=r;
 key:=b[l+random(r-l+1)];
 repeat
  while (b[i]<key) do inc(i);
  while (b[j]>key) do dec(j);
  if i<=j then
   begin
    temp:=b[i];b[i]:=b[j];b[j]:=temp;
    inc(i);dec(j);
   end;
 until i>j;
 qsort(l,j);
 qsort(i,r);
end;
begin
 readln(m,n);
 for i:=1 to m do read(a[i]);
 for i:=1 to n do read(b[i]);
 qsort(1,n);
 for i:=1 to m do
  begin
   l:=1;r:=n;t:=0;
   while l<r do//二分"查找"(查找比它小的有几个数)
    begin
     mid:=(l+r)div 2;
     if a[i]>b[mid] then begin
                          l:=mid+1;
                          t:=mid;//因为排序过,所以mid及它之前的数都小于a[i]
                         end
                    else r:=mid-1;
     if (l=r) and (a[i]>b[r]) then inc(t);//如果l=r(差不多到了等于的交界处了),那么就加多这一个数吧
    end;
   ans:=ans+t;//累加
  end;
 writeln(ans);
end.