jzoj 1591. 【普及模拟】游戏 解题报告

1591. 【普及模拟】游戏(j5.pas/cpp) 
(File IO): input:j5.in output:j5.out

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

ProblemSet

题目描述

两个核武器科学家Patrick和Roland，在研究核武器时突然觉得无聊，玩起了游戏，游戏当然也是跟核武器有关，游戏一开始在桌子上放了一些核材料，两个人轮流玩，Patrick先玩。游戏规则是每次玩家可以从这些核材料里选一些材料放到反应堆去，当然结果就是化为乌有，由于游戏太危险，所以只有A,B,C,D四种材料，而且允许的反应只有以下5种：

1.       AABDD

2.       ABCD

3.       CCD

4.       BBB

5.       AD

当某个人选不到材料进行反应时就输了，大家要知道两个人都是绝顶聪明的。

输入

第一行输入一个整数N(1<=N<=100)，表示游戏次数，接下来N行，每行四个整数，分别表示游戏开始时A,B,C,D四种材料的数量。假设一开始每种材料的数量都在0到60之间。

输出

    对于每次游戏输出赢者的名字。

样例输入

6
0 2 0 2
1 3 1 3
1 5 0 3
3 3 3 3
8 8 6 7
8 8 8 8

样例输出

Roland
Patrick
Roland
Roland
Roland
Patrick

本题为博弈题

代码如下：

const
 w:array[1..5,1..4]of longint=((2,1,0,2),(1,1,1,1),(0,0,2,1),(0,3,0,0),(1,0,0,1));
var
 f:array[0..60,0..60,0..60,0..60]of longint;
 n,i,ans:longint;
 a,b,c,d:longint;

function dg(a,b,c,d:longint):longint;
var i:longint;
begin
 if f[a,b,c,d]<>0 then exit(f[a,b,c,d]);
 for i:=1 to 5 do
  if (a>=w[i,1])and(b>=w[i,2])and(c>=w[i,3])and(d>=w[i,4])
   then begin if dg(a-w[i,1],b-w[i,2],c-w[i,3],d-w[i,4])=2 then
             begin  f[a,b,c,d]:=1;
              exit(1); end;
        end;
   f[a,b,c,d]:=2;
   exit(2);
end;


begin
 assign(input,'j5.in');reset(input);
 assign(output,'j5.out');rewrite(output);
 readln(n);
 for i:=1 to n do
 begin
  readln(a,b,c,d);
  if dg(a,b,c,d)=2 then writeln('Roland')
                   else writeln('Patrick');
 end;
 close(input); close(output);
end.