2017.5.21测试题二朋友_【问题描述】 mxy 即将前往新世界。在前往新世界的过程中,ta 遇见了两种人。一种-优快云博客

本篇介绍了一种计算特定条件下友好关系数量的方法。具体地，在一组人中，一部分人倾向于与能力值低于自己的人建立友谊，而另一部分则偏好与能力值高于自己的人成为朋友。通过给出每个人的能力值，算法采用快速排序和二分查找技术来确定所有可能的友好配对。

题二朋友

（ 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

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.