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】

rps.in	rps.out
10 5 6 0 1 2 3 4 0 3 4 2 1 0	6 2

【输入输出样例2】

rps.in	rps.out
9 5 5 0 1 2 3 4 1 0 3 2 4	4 4

【数据说明】

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

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

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

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

代码：

const
win:array[0..4,0..4]of boolean=
((false,false,true,true,false),
(true,false,false,true,false),
(false,true,false,false,true),
(false,false,true,false,true),
(true,true,false,false,false));

var
a,b:array[0..40001]of longint;
c:array[0..40001,1..2]of longint;
n,na,nb,nc,ans1,ans2,i,now:longint;

function gcd(x,y:longint):longint;
begin
if x mod y=0
then gcd:=y
else gcd:=gcd(y,x mod y);
end;

procedure read_ready;
begin
readln(n,na,nb);
for i:=1 to na do
read(a[i]);
for i:=1 to nb do
read(b[i]);
if na>nb
then nc:=gcd(na,nb)
else nc:=gcd(nb,na);
nc:=na*nb div nc;
for i:=1 to nc do
begin
a[i]:=a[(i-1) mod na+1];
b[i]:=b[(i-1) mod nb+1];
end;
end;

procedure chushihua;
begin
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
fillchar(c,sizeof(c),0);
ans1:=0;ans2:=0;
end;

procedure work;
begin
c[0,1]:=0;c[0,2]:=0;
for i:=1 to nc do
begin
c[i,1]:=c[i-1,1];
c[i,2]:=c[i-1,2];
if win[a[i],b[i]] then inc(c[i,1]);
if win[b[i],a[i]] then inc(c[i,2]);
end;
ans1:=(n div nc)*c[nc,1];
ans2:=(n div nc)*c[nc,2];
n:=n mod nc;
inc(ans1,c[n,1]);
inc(ans2,c[n,2]);
writeln(ans1,' ',ans2);
end;

begin
chushihua;
read_ready;
work;
end.