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