洛谷1328 生活大爆炸版石头剪刀布 解题报告

洛谷1328 生活大爆炸版石头剪刀布

本题地址： http://www.luogu.org/problem/show?pid=1328

题目描述

石头剪刀布是常见的猜拳游戏：石头胜剪刀，剪刀胜布，布胜石头。如果两个人出拳一样，则不分胜负。在《生活大爆炸》第二季第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：

10 5 6  
0 1 2 3 4 
0 3 4 2 1 0  

输出样例#1：

6 2

输入样例#2：

9 5 5 
0 1 2 3 4 
1 0 3 2 4 

输出样例#2：

4 4

说明

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

题解

模拟

这道题是笔者当年在NOIP2014考场上A掉的水题，写下这篇解题报告算是作个纪念吧。

话不多说，首先我们都知道石头剪刀布的玩法，这道题只不过是在它的基础上加了两种出拳方式：斯波克和蜥蜴人。

两位同学的出拳方式只给出了一个周期，这不一定是整场比赛所有的出拳方式，

所以笔者采用了一种循环赋值的办法，以A同学为例，将该同学的出拳方式记录到a数组，然后从第na+1个数开始赋值为第1个数的值，以此类推：

a[na+1]=a[1]=a[na+1-na]

a[na+2]=a[2]=a[na+2-na]

......

可推广为：a[n]:=a[n-na]

当把n个出拳方式都记录到a、b数组后，逐个进行比较计分即可（笔者if出了所有情况。。。）。

下面附上代码。

代码

program rps;
var
  n,na,nb,ca,cb,i:longint;
  a,b:array[1..200] of longint;
begin
  readln(n,na,nb);
  for i:=1 to na do
    read(a[i]);
  for i:=na+1 to n do
    a[i]:=a[i-na];
  readln;
  for i:=1 to nb do
    read(b[i]);
  for i:=nb+1 to n do
    b[i]:=b[i-nb];
  for i:=1 to n do
    begin
      if a[i]=0 then
        begin
          if (b[i]=2) or (b[i]=3) then inc(ca);
          if (b[i]=1) or (b[i]=4) then inc(cb);
        end;
      if a[i]=1 then
        begin
          if (b[i]=0) or (b[i]=3) then inc(ca);
          if (b[i]=2) or (b[i]=4) then inc(cb);
        end;
      if a[i]=2 then
        begin
          if (b[i]=1) or (b[i]=4) then inc(ca);
          if (b[i]=0) or (b[i]=3) then inc(cb);
        end;
      if a[i]=3 then
        begin
          if (b[i]=2) or (b[i]=4) then inc(ca);
          if (b[i]=0) or (b[i]=1) then inc(cb);
        end;
      if a[i]=4 then
        begin
          if (b[i]=0) or (b[i]=1) then inc(ca);
          if (b[i]=2) or (b[i]=3) then inc(cb);
        end;
    end;
  writeln(ca,' ',cb);
end.

（本文系笔者原创，未经允许不得转载）