linux系统中实现石头剪刀布,洛谷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

解题思路

这个题网上给出了三种解法，用数组做的是文艺青年，用循环做的事普通青年，用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

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.

时间： 08-20