洛谷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 。

解题思路

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

 1 program Left;
 2 var
 3 a,b:array[1..200] of longint;
 4 n,na,nb,c1,c2,sum1,sum2,sum,i:longint;
 5 begin
 6     read(n,na,nb);
 7     for i:=1 to na do read(a[i]);
 8     for i:=1 to nb do read(b[i]);
 9     sum:=0;
10     while sum<n do
11     begin
12         inc(sum);
13         if sum mod na <>0 then c1:=a[sum mod na] else c1:=a[na];
14         if sum mod nb <>0 then c2:=b[sum mod nb] else c2:=b[nb];
15         if c1=c2 then continue;
16         if ((c1=0) and(c2=2)) or
17            ((c1=0) and(c2=3)) or
18            ((c1=1) and(c2=0)) or
19            ((c1=1) and(c2=3)) or
20            ((c1=2) and(c2=1)) or
21            ((c1=2) and(c2=4)) or
22            ((c1=3) and(c2=4)) or
23            ((c1=3) and(c2=2)) or
24            ((c1=4) and(c2=0)) or
25            ((c1=4) and(c2=1)) then inc(sum1)
26            else inc(sum2);
27     end;
28     writeln(sum1,' ',sum2);
29 end.

 

posted @ 2015-08-20 21:18  Alisahhh  阅读(199)  评论(0编辑  收藏  举报