朋友

【问题描述】

    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

7

程序：

var
m,n,i,j,q,p:longint;
tj:int64;
a,b:array[0..20000]of longint;
procedure kp1(l,r:longint);
var
i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l;j:=r;mid:=a[(l+r) div 2];
    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;
    kp1(l,j);
    kp1(i,r);
end;
procedure kp2(l,r:longint);
var
i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l;j:=r;mid:=b[(l+r) div 2];
    repeat
         while b[i]>mid do inc(i);
         while b[j]<mid do dec(j);
         if i<=j then
         begin
             b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
             inc(i);dec(j);
         end;
    until i>j;
    kp2(l,j);
    kp2(i,r);
end;


begin
    readln(m,n);
    for i:=1 to m do
    read(a[i]);
    readln;
    for i:=1 to n do
    read(b[i]);
    kp1(1,m);
    kp2(1,n);
    tj:=0;
    for i:=1 to m do
    begin
        q:=1;p:=n;
        if b[q]<a[i] then
        begin
            inc(tj,n);
            continue;
        end;
        if b[p]>=a[i] then break;
        while a[i]<=b[q] do inc(q);
        if a[i]>b[q] then
        begin
            tj:=tj+(n-q+1);
            continue;
        end;
        if a[i]>b[p] then
        begin
            tj:=tj+(n-p+1);
            continue;
        end;
    end;
    write(tj);
end.