wordpress科技网站模板今日新闻大事

题目描述

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

解题思路

这个题网上给出了三种解法，用数组做的是文艺青年，用循环做的事普通青年，用if过的是逗比青年，很不幸，我是第三类

program Left;
var
a,b:array[1..200] of longint;
n,na,nb,c1,c2,sum1,sum2,sum,i:longint;
begin
    read(n,na,nb);
    for i:=1 to na do read(a[i]);
    for i:=1 to nb do read(b[i]);
    sum:=0;
    while sum<n do
    begin
        inc(sum);
        if sum mod na <>0 then c1:=a[sum mod na] else c1:=a[na];
        if sum mod nb <>0 then c2:=b[sum mod nb] else c2:=b[nb];
        if c1=c2 then continue;
        if ((c1=0) and(c2=2)) or
           ((c1=0) and(c2=3)) or
           ((c1=1) and(c2=0)) or
           ((c1=1) and(c2=3)) or
           ((c1=2) and(c2=1)) or
           ((c1=2) and(c2=4)) or
           ((c1=3) and(c2=4)) or
           ((c1=3) and(c2=2)) or
           ((c1=4) and(c2=0)) or
           ((c1=4) and(c2=1)) then inc(sum1)
           else inc(sum2);
    end;
    writeln(sum1,' ',sum2);
end.