纸牌游戏

前言
“发明负数干嘛?用来表示你的颜值与智商。”欢迎来到嘟嘟课堂。今天，我们来讲一讲暴力题——纸牌游戏。
题目描述
Bessie （胡晟智）是一头非常喜欢纸牌的奶牛，虽然她没有大拇指，但她对纸牌有近乎痴迷的喜爱。不幸的是，牛群中的其他牛都不是好的对手。他们的水平真的很差。他们总是以一种完全可预测的方式来玩纸牌！尽管如此，Bessie 仍然可以选择如何获胜。
Bessie 和她的朋友Elsie 在玩一个简单的纸牌游戏，她们拿了一付有2n 张卡片的牌，牌上的数字编号为1- 2n ，并将其均分成两份，一份卡片给Bessie 和一份卡片给Elsie。
然后两人开始玩牌，一共进行n 轮， 在每一轮中，Bessie 和Elsie 都打一张卡，谁的牌大就得一分。
神奇的Bessie 可以预测Elsie 打牌顺序，并且尽可能的想赢取胜利。请确定Bessie可以赢得的最大点数。
输入
第一行一个整数N (1≤N≤50,000).
接下来的N 行是Elsie 将每轮连续的比赛中出的牌。请注意，从这些信息很容易确定Bessie 的卡片
输出
一行给出Bessie 可以得分的最大点数。
样例输入
3
1
6
4
样例输出
2
样例说明
​贝西手上的牌是2,3，5，她按照2，3，5 的顺序出牌可以获得2 分。
思路
这道题纯属暴力。首先，我们先将渣渣对手存入a数组（读入），然后将剩余的,就是胡晟智的牌，存入b数组。然后我们来一个一个比较。设i、j两个指针。如果胡晟智的牌大于渣渣对手，就答案+1.否则i指针前移。最后输出答案即可。
代码

var        a,b:array[1..100000] of longint;        p:array[1..100000] of boolean;        i,j,k,n1,n2,ans:longint;procedure sb(l,r:longint);var        i,j,k,p:longint;begin        i:=l;        j:=r;        k:=a[(l+r) div 2];        while (i<j) do        begin                while (a[i]>k) and (i<r) do inc(i);                while (a[j]<k) and (l<j) do dec(j);                if (i<=j) then                begin                        p:=a[i];                        a[i]:=a[j];                        a[j]:=p;                        inc(i);                        dec(j);                end;        end;        if (i<r) then sb(i,r);        if (l<j) then sb(l,j);end;procedure lsb(l,r:longint);var        i,j,k,p:longint;begin        i:=l;        j:=r;        k:=b[(l+r) div 2];        while (i<j) do        begin                while (b[i]>k) and (i<r) do inc(i);                while (b[j]<k) and (l<j) do dec(j);                if (i<=j) then                begin                        p:=b[i];                        b[i]:=b[j];                        b[j]:=p;                        inc(i);                        dec(j);                end;        end;        if (i<r) then lsb(i,r);        if (l<j) then lsb(l,j);end;begin        readln(n1);        n2:=n1*2;        for i:=1 to n1 do        begin                readln(a[i]);                p[a[i]]:=true;        end;        for i:=1 to n2 do        begin                if not p[i] then                begin                        inc(k);                        b[k]:=i;                end;        end;        sb(1,n1);        lsb(1,n1);        i:=1;        j:=1;        while (i<=n1) and (j<=n1) do        begin                if (a[i]<b[j]) then                begin                        inc(i);                        inc(j);                        inc(ans);                end                else inc(i);        end;        write(ans);end.