Background 背景

幻影lyd水题欢乐赛No.4

Description 题目描述

lyd学会了使用扑克DIY占卜。方法如下：一副去掉大小王的扑克共52张，打乱后均分为13堆，编号1~13，每堆4张，其中第13堆称作“生命牌”，也就是说你有4条命。这里边，4张K被称作死神。

初始状态下，所有的牌背面朝上扣下。

流程如下：

1.抽取生命牌中的最上面一张(第一张)。

2.把这张牌翻开，正面朝上，放到牌上的数字所对应编号的堆的最上边。(例如抽到2，正面朝上放到第2堆牌最上面，又比如抽到J，放到第11堆牌最上边，注意是正面朝上放)

3.从刚放了牌的那一堆最底下(最后一张)抽取一张牌，重复第2步。（例如你上次抽了2，放到了第二堆顶部，现在抽第二堆最后一张发现是8，又放到第8堆顶部.........）

4.在抽牌过程中如果抽到K，则称死了一条命，就扔掉K再从第1步开始。

5.当发现四条命都死了以后，统计现在每堆牌上边正面朝上的牌的数目，只要同一数字的牌出现4张正面朝上的牌(比如4个A)，则称“开了一对”，当然4个K是不算的。

6.统计一共开了多少对，开了0对称作"极凶"，1~2对为“大凶”，3对为“凶”，4~5对为“小凶”，6对为“中庸”，7~8对“小吉”，9对为“吉”，10~11为“大吉”，12为“满堂开花，极吉”。

如果还不明白，就去看样例吧….

Input Format 输入格式

一共13行，为每堆牌的具体牌是什么(不区分花色只区分数字)，每堆输入的顺序为从上到下。

为了便于读入，用0代表10，那么A，J，Q，K(大写)就不用说了吧。。。

Output Format 输出格式

一共开了几对。

Sample Input 样例输入

8 5 A A

K 5 3 2

9 6 0 6

3 4 3 4

3 4 4 5

5 6 7 6

8 7 7 7

9 9 8 8

9 0 0 0

K J J J

Q A Q K

J Q 2 2

A K Q 2

Samput Output 样例输出

9

Time Limitation 时间限制

各个测试点1s

Hint 注释

第一条命死后前12堆牌变成了这个样子：

A A A 8

K 5 3 2

3 9 6 0

4 4 3 4

5 5 3 4

6 6 5 6

7 7 7 7

8 8 8 9

9 9 0 0

0 K J J

J Q A Q//抽到这里的K死掉了

J Q 2 2

第二条命由于K在生命牌中，所以直接死掉，不变。

第三条命死后前12堆牌变成了这个样子：

A A A A

2 2 2 K

3 3 3 3

4 4 4 4

5 5 5 5

6 6 6 6

7 7 7 7

8 8 8 8

9 9 9 9

0 0 0 0//抽到这里的K死掉了

J J J Q

Q Q J Q

第四条命死后前12堆牌变成了这个样子：

A A A A

2 2 2 2//抽到这里的K死掉了

3 3 3 3

4 4 4 4

5 5 5 5

6 6 6 6

7 7 7 7

8 8 8 8

9 9 9 9

0 0 0 0

J J J Q

Q Q J Q

最后发现在所有已经正面朝上的牌中，A 2 3 4 5 6 7 8 10这9对牌“开”了，（注意，第9堆牌中的最后一张虽然也是9，但是并没有被翻开！所以不能算）因此输出9，喔，出题人Lyd的运势为“吉”哦·T_T。

program diy;typepai=recordcard:array[1..4]of integer;done:integer;end;vara:array[1..13]of pai;c:char;k,i,j,s:integer;function inpu(x:char):integer;begincase x of'2'..'9':inpu:=ord(x)-48;'0':inpu:=10;'A':inpu:=1;'J':inpu:=11;'Q':inpu:=12;'K':inpu:=13;end;end;procedure init(var n:integer);vari:integer;beginif n = 13 thenbegindec(a[13].done);if (a[13].done=0) thenbeginfor i := 1 to 12 do if a[i].done=0 then inc(s);writeln (s);halt;end;init(a[13].card[a[13].done]);end elsebegindec(a[n].done);init(a[n].card[a[n].done+1]);end;end;begins:=0;for i := 1 to 13 dobegina[i].done:=4;for j := 1 to 3 dobeginread (c);a[i].card[j]:= inpu (c);read (c);end;readln (c);a[i].card[4]:=inpu(c);end;k := a[13].card[1];a[13].card[1]:=a[13].card[4];a[13].card[4]:=k;k := a[13].card[2];a[13].card[2]:=a[13].card[3];a[13].card[3]:=k;a[13].done:=4;init(a[13].card[4]);end.

有趣的题目，纯模拟，有一处耽误了很久才看出问题，不过题目并不是很难，却交给我们一个非常好玩的占卜方法，这就是编程的乐趣~！