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的分数。

样例输入

5179610

样例输出

30

数据范围限制

提示

【样例输入输出】

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.