特长生模拟——朋友

题目大意：
mxy遇见了两种人。一种是只和自己能力值大于对方的成为朋友，另一种是当且仅当自己的能力值小于对方时成为朋友。告诉你两种人的人数N,M,以及分别的能力值a[1]..a[n],b[1]..b[m]。请你计算一共有多少对友好关系。

1 <= m，n <= 20000

题解:
排序+二分：
对a进行大到小排序，然后枚举b[i],每一次枚举时二分出b[i]在a中的位置，然后因为排了序的所以可以直接累加他的位置。

var
     a,b:array [0..20001] of longint;
     n,m,i,l,r,sum,mid,ans:longint;

procedure qsort(l,r:longint);
var
     i,j,mid:longint;
begin
     if l>=r then exit;
     mid:=a[(l+r) div 2];
     i:=l; j:=r;
     repeat
           while a[i]>mid do inc(i);
           while a[j]<mid do dec(j);
           if i<=j then
              begin
                   a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
                   inc(i); dec(j);
              end;
     until i>j;
     qsort(i,r);
     qsort(l,j);
end;

begin
     assign(input,'friend.in'); reset(input);
     assign(output,'friend.out'); rewrite(output);
     readln(n,m);
     for i:=1 to n do read(a[i]); readln;
     for i:=1 to m do read(b[i]);
     qsort(1,n);
     sum:=0;
     for i:=1 to m do
         begin
              l:=1; r:=n;
              ans:=0;
              while l<r do
              begin
                   mid:=(l+r) div 2;
                   if a[mid]>b[i] then begin ans:=mid; l:=mid+1 end
                                  else r:=mid;
                   if l=r then
                      if a[r]>b[i] then inc(ans);
              end;
              sum:=sum+ans;
         end;
     writeln(sum);
     close(input); close(output);
end.