Tyvj P1424 占卜DIY
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;
type
pai=record
card:array[1..4]of integer;
done:integer;
end;
var
a:array[1..13]of pai;
c:char;
k,i,j,s:integer;
function inpu(x:char):integer;
begin
case 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);
var
i:integer;
begin
if n = 13 then
begin
dec(a[13].done);
if (a[13].done=0) then
begin
for 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 else
begin
dec(a[n].done);
init(a[n].card[a[n].done+1]);
end;
end;
begin
s:=0;
for i := 1 to 13 do
begin
a[i].done:=4;
for j := 1 to 3 do
begin
read (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.