jzoj 1396. 【2012.03.3普及组】打牌 解题报告

1396. 【2012.03.3普及组】打牌 (Standard IO)

时间限制:  1000 ms  空间限制:  131072 KB  具体限制  

Goto ProblemSet

题目描述

 有A、B两个玩家玩打牌游戏：

●一共有2N张牌，每张牌上数字不同，从1到2N.(1<=N<=100)；

●每个玩家有N张牌；

●每个玩家按照以下规则轮流出牌也可能不出：

ⅰ：第一个玩家先打出一张牌；

ⅱ：每次玩家出的牌必须比另一个玩家刚刚出的牌要大；

ⅲ：如果有牌可以出就一定要出；

ⅳ：如果玩家没有牌可以出就不出，这种情况下由刚才的玩家继续出牌；

●当某个玩家手上没牌时游戏结束；

●每个玩家获得的分数为对手剩下的牌数；

●最重要的一点是每个玩家必须在可出的牌中找一个最小的来出！

A先出牌，写一个程序计算A,B两个人的得分。

输入

第1行一个整数N;

第2-N+1行每行一个数字为玩家A的牌。

输出

    输出包含两行，分别玩家A和B的分数。

样例输入

5

1

7

9

6

10

样例输出

3

0

数据范围限制

提示

【 样例输入输出】

10 8 7 14 18 4 11 3 17 5 19

2 0

代码如下： 其实就是一个模拟而已

const
 maxn=1000;
var
 a,b:array[0..maxn]of longint;
 c,d:array[0..maxn]of boolean;
 n,i,j,ans1,ans2,k,l,max:longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a[i]);
   c[a[i]]:=true;
  end;
 for i:=1 to  2*n do
  if not c[i] then begin inc(k); b[k]:=i; d[i]:=true; end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if a[i]>a[j] then
     begin a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0]; end;
   for i:=1 to n-1 do
    for j:=i+1 to n do
     if b[i]>b[j] then
      begin b[0]:=b[i]; b[i]:=b[j]; b[j]:=b[0]; end;
 i:=1;
 ans1:=1;
 max:=a[1];
 c[a[1]]:=false;
  while (ans1<n)and(ans2<n) do
   begin
    for k:=1 to n do
     if (b[k]>max)and(d[b[k]]) then begin max:=b[k]; d[b[k]]:=false; j:=k;  inc(ans2); break end;
     if max=a[i] then max:=0;
    for l:=1 to n do
     if (a[l]>max)and(c[a[l]]) then begin max:=a[l]; c[a[l]]:=false; i:=l;  inc(ans1); break  end;
     if max=b[j] then max:=0;
   end;
 writeln(n-ans2);
 writeln(n-ans1);
end.