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.

 

 

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

posted on 2011-02-03 22:55  yachen  阅读(658)  评论(0编辑  收藏  举报

导航