5.14特长生模拟 朋友

题目

mxy 即将前往新世界。
在前往新世界的过程中，ta 遇见了两种人。一种是只和lowb 做朋友，即当且仅当自己
的能力值大于对方时他们会成为朋友，另一种是大神我们做朋友，即当且仅当自己的能力
值小于对方时他们会成为朋友。
现在告诉你两种人的能力值。请你计算一共有多少对友好关系。

题解

排序+二分，因为排好序了，答案直接累加
时间复杂度O（n log m）

还有一种方法：两种人都排序，i循环第一种人，j循环第二种人，因为排了序，所以可以用指针记录上一次的j，这次的j直接从上次的j开始
时间复杂度O（m+n）

代码

type
  arr=array[1..20000]of longint;
var
  m,n,i,j,k,l,r,s:longint;
  a,b:arr;

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

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