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.