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;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.?
?
有趣的題目，純模擬，有一處耽誤了很久才看出問題，不過題目并不是很難，卻交給我們一個非常好玩的占卜方法，這就是編程的樂趣~！
轉載于:https://www.cnblogs.com/yachen/archive/2011/02/03/1949076.html
總結
以上是生活随笔為你收集整理的Tyvj P1424 占卜DIY的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 一个关于NHiberante，Linq数
- 下一篇： Jeremy Keith在 Fronte