【NOIP2016复赛模拟赛】朋友

问题描述
mxy 即将前往新世界。
在前往新世界的过程中，ta 遇见了两种人。一种是只和lowb 做朋友，即当且仅当自己
的能力值大于对方时他们会成为朋友，另一种是大神我们做朋友，即当且仅当自己的能力
值小于对方时他们会成为朋友。
现在告诉你两种人的能力值。请你计算一共有多少对友好关系。
输入
每组测试数据有三行。
第一行有两个整数m，n(1 <= m，n <= 20000)，分别代表前者人数和后者人数。
第二行m 个数，第三行n 个数，代表各自的能力值。
输出
一行一个整数，表示有多少对友好关系。
样例输入
5 3
8 1 7 3 1
3 6 1
样例输出
7
算法讨论
先将两种人的能力值从大到小排序，然后逐个比较，符合做朋友的就加一对，因为做朋友是相互的，所以只用做一次，再加几个优化：当I类人第一个能力值大于II类人最后一个，则直接加n；当I类人第一个能力值小于II类人最后一个，则直接跳过当前I类人，往下继续找。初评没有过……自以为是的加了个所谓的优化，头在往后找时尾在往前找，当然这样是错的……

const  maxn=20000;type  arr=array[1..maxn] of longint;var  a,b:array[1..maxn] of longint;  i,j,q,p,n,m:longint;  s:int64;procedure qsort(var x:arr;l,r:longint);var  i,j,m,t:longint;begin  i:=l; j:=r;  m:=x[(l+r) div 2];  repeat    while x[i]>m do      inc(i);    while x[j]<m do      dec(j);    if i<=j      then begin             t:=x[i];             x[i]:=x[j];             x[j]:=t;             inc(i); dec(j)           end;  until i>j;  if l<j    then qsort(x,l,j);  if i<r    then qsort(x,i,r);end;begin  assign(input,'friend.in'); reset(input);  assign(output,'friend.out'); rewrite(output);  read(n,m);  for i:=1 to n do    read(a[i]);  for i:=1 to m do    read(b[i]);  qsort(a,1,n);  qsort(b,1,m);  for i:=1 to n do    begin      q:=1; p:=m;      if b[q]<a[i]        then begin               inc(s,m);               continue             end;      if b[p]>=a[i]        then break;      while a[i]<=b[q] do        inc(q);       if a[i]>b[q]        then begin               s:=s+(m-q+1);               continue             end;      if a[i]>b[p]        then begin               s:=s+(m-p+1);               continue             end;    end;  writeln(s);  close(input); close(output)end.

Pixiv ID：61676992