NOIP 2014 D1T1 -生活大爆炸版石头剪刀布

生活大爆炸版石头剪刀布

(rps.cpp/c/pas)

【问题描述】

石头剪刀布是常见的猜拳游戏：石头胜剪刀，剪刀胜布，布胜石头。如果两个人出拳一样，则不分胜负。在《生活大爆炸》第二季第8集中出现了一种石头剪刀布的升级版游戏。升级版游戏在传统的石头剪刀布游戏的基础上，增加了两个新手势：

斯波克：《星际迷航》主角之一。

蜥蜴人：《星际迷航》中的反面角色。

这五种手势的胜负关系如表一所示，表中列出的是甲对乙的游戏结果。

表一  石头剪刀布升级版胜负关系

现在，小A和小B尝试玩这种升级版的猜拳游戏。已知他们的出拳都是有周期性规律的，但周期长度不一定相等。例如：如果小A以“石头-布-石头-剪刀-蜥蜴人-斯波克”长度为6的周期出拳，那么他的出拳序列就是“石头-布-石头-剪刀-蜥蜴人-斯波克-石头-布-石头-剪刀-蜥蜴人-斯波克-……”，而如果小B以“剪刀-石头-布-斯波克-蜥蜴人”长度为5的周期出拳，那么他出拳的序列就是“剪刀-石头-布-斯波克-蜥蜴人-剪刀-石头-布-斯波克-蜥蜴人-……”

已知小A和小B一共进行N次猜拳。每一次赢的人得1分，输的得0分；平局两人都得0分。现请你统计N次猜拳结束之后两人的得分。

【输入】

输入文件名为rps.in。

第一行包含三个整数：N，NA，NB，分 别 表 示 共 进 行N次猜拳、小A出拳的周期长度，小B出拳的周期长度。数与数之间以一个空格分隔。

第二行包含NA个整数，表示小A出拳的规律，第三行包含NB个整数，表示小B出拳的规律。其中，0表示“剪刀”，1表示“石头”，2表示“布”，3表示“蜥蜴人”，  4表示“斯波克”。数与数之间以一个空格分隔。

【输出】

输出文件名为rps.out。

输出一行，  包含两个整数，以一个空格分隔，分别表示小A、小B的得分。

【输入输出样例1】

【输入输出样例2】

【数据说明】

对于100%的数据，0 < N ≤  200，0 < NA  ≤  200，  0 < NB  ≤  200。

这样的话直接模拟每次猜拳的结果即可... 时间复杂度O(N),空间复杂度O(N)

然而在考场上脑洞有点大写了一个最小公倍数...没事反正AC就行...

时间复杂度O（lcm(NA,NB)）...

代码：

 1 const
 2   win:array[0..4,0..4]of boolean=
 3   ((false,false,true,true,false),
 4    (true,false,false,true,false),
 5    (false,true,false,false,true),
 6    (false,false,true,false,true),
 7    (true,true,false,false,false));
 8
 9 var
10   a,b:array[0..40001]of longint;
11   c:array[0..40001,1..2]of longint;
12   n,na,nb,nc,ans1,ans2,i,now:longint;
13
14 function gcd(x,y:longint):longint;
15 begin
16   if x mod y=0
17     then gcd:=y
18     else gcd:=gcd(y,x mod y);
19 end;
20
21 procedure read_ready;
22 begin
23   readln(n,na,nb);
24   for i:=1 to na do
25     read(a[i]);
26   for i:=1 to nb do
27     read(b[i]);
28   if na>nb
29     then nc:=gcd(na,nb)
30     else nc:=gcd(nb,na);
31   nc:=na*nb div nc;
32   for i:=1 to nc do
33     begin
34       a[i]:=a[(i-1) mod na+1];
35       b[i]:=b[(i-1) mod nb+1];
36     end;
37 end;
38
39 procedure chushihua;
40 begin
41   fillchar(a,sizeof(a),0);
42   fillchar(b,sizeof(b),0);
43   fillchar(c,sizeof(c),0);
44   ans1:=0;ans2:=0;
45 end;
46
47 procedure work;
48 begin
49   c[0,1]:=0;c[0,2]:=0;
50   for i:=1 to nc do
51     begin
52       c[i,1]:=c[i-1,1];
53       c[i,2]:=c[i-1,2];
54       if win[a[i],b[i]] then inc(c[i,1]);
55       if win[b[i],a[i]] then inc(c[i,2]);
56     end;
57   ans1:=(n div nc)*c[nc,1];
58   ans2:=(n div nc)*c[nc,2];
59   n:=n mod nc;
60   inc(ans1,c[n,1]);
61   inc(ans2,c[n,2]);
62   writeln(ans1,‘ ‘,ans2);
63 end;
64
65 begin
66   chushihua;
67   read_ready;
68   work;
69 end.