NOIP模拟 朋友(快排+贪心)

2 .朋友
【问题描述】
mxy 即将前往新世界。
在前往新世界的过程中，ta 遇见了两种人。一种是只和lowb 做朋友，即当且仅当自己
的能力值大于对方时他们会成为朋友，另一种是大神我们做朋友，即当且仅当自己的能力
值小于对方时他们会成为朋友。
现在告诉你两种人的能力值。请你计算一共有多少对友好关系。
【输入】
每组测试数据有三行。
第一行有两个整数m，n(1 <= m，n <= 20000)，分别代表前者人数和后者人数。
第二行m 个数，第三行n 个数，代表各自的能力值。
【输出】
一行一个整数，表示有多少对友好关系。

分析：将m个数从大到小排序，n个数从小到大排序然后贪心（详情见代码）

代码
const
maxn=100000;
var
a,b:array[0..maxn] of longint;
n,m,i,p,ans:longint;

procedure qsort1(l,r:longint);
var
i,j,k:longint;
begin
if l>=r then exit;
i:=l;j:=r;
k:=a[(l+r) div 2];
repeat
while a[i]>k do inc(i);
while a[j]