ポーカーの手に名前を付ける

5枚のカードが与えられたら、ポーカーハンドの名前を出力します。

High card
One pair
Two pair
Three of a kind
Straight
Flush
Full house
Four of a kind
Straight flush
Royal Flush

疑わしい場合は、http://en.wikipedia.org/wiki/List_of_poker_handsのルールを参照してください。

入力

stdinまたはコマンドライン引数からの5 枚のカード。カードは、フォーム上の2文字の文字列で、RSRはランクで、Sはスーツです。ランクはある2- 9（番号カード）、T（10）、 J（ジャック）、（Q女王）、 K（王）、 A（エース）。スーツがありS、D、H、Cそれぞれスペード、ダイヤ、ハート、クラブのために。

カードの例

5H - five of hearts
TS - ten of spades
AD - ace of diamonds

入力の例=>望ましい出力

3H 5D JS 3C 7C => One pair
JH 4C 2C JD 2H => Two pair
7H 3S 7S 7D 7C => Four of a kind
8C 3H 8S 8H 3S => Full house

ルール

最短のコードが勝つ

編集

これまで見栄えがいい！私はこれらの言語をあまりよく知らず、すべてのコンパイラ/インタープリターも持っていないので、すべての答えを実際に検証することはできませんが、エースが最高であり、ストレート（フラッシュ）の最も低いカード。

code-golf game

— ダニエロ
ソース

2

Stack Overflowには漠然と関連するオールディーがあります。

— dmckee

好きなように手の名前を大文字にすることはできますか？

— Mr.Wizard

ウィザードさん、確かに。

— daniero

3

GolfScript（209 208 207 206 200 199 197 196文字）

3/zip:^0={10,''*"TJQKA"+?}/]:?15,{?\{=}+,,}%2,-$6,14.),++@$/):|;[!!2*^1=.&,(!+5+]or{/}*'Full house
Two pair
One pair
ThreeKFourKHigh card
Flush
Straight''K'/' of a kind
'*n/~|1$"Royal"if" "+2$+](=

提供された自由度を活用して大文字を微調整します：ストレートフラッシュとロイヤルフラッシュはどちらも、単純なフラッシュの単語を再利用するためにフラッシュを大文字にします。

注：以前のバージョンにはバグがありました。ペアがロイヤルよりも価値が低い場合にのみフルハウスをサポートしていました。それらは、スペースで区切ら- 0れたものを$。

デモ

— ピーター・テイラー
ソース

これがゴルフプログラムです！短縮する方法を探していましたが、何も思いつきません。.&文字列内の異なる文字を見つけるために使用することは非常に便利なトリックです。

— クリスティアン・ルパスク

@ w0lf、それはかなり標準的なトリックです。ハワードも彼のソリューションでそれを使用しています。

— ピーターテイラー

8

私自身の答えを見つけました:)

パイソン-312 301 298

R,K,F,S,g=' 23456789TJQKA2345A',' of a Kind','Flush','Straight ',sorted
s,r=''.join(g(raw_input(),key=R.find)).split()
n,m=g(map(r.count,set(r)))[-2:]
print[[F,[0,'High Card','TOwnoe'[n&1::2]+' Pair',['Full House','Three'+K][n&1],'Four'+K][m]],[[S,'Royal '][r[0]=='T']+F,S]][r in R][len(set(s))>1]

2次元のインデックスがフラッシュとストレートのブールチェックである2x2リストを作成します。両方の場合、ロイヤルフラッシュかストレートフラッシュかを確認します。フラッシュではなく直線ではないために、我々は他の手をチェック：mとn同じランクのカードの最高と二番目に高い金額を保持しています。手の名前は、に応じたインデックス付きのリストに保存されmます。このリストの値内のサブチェックは、n1つのペアを2つのペアから分離し、3つの種類を家から分離するために行われます。

編集：合計20文字を保存してくれたNolen Royalityに感謝します！

— ダニエロ
ソース

1

...そして私のものを打ち負かします。

— ミスターウィザード

新しいソリューションが大好きです。312文字は非常に小さいです。1対2のペアを扱う非常に巧妙な方法：D

— ノーレンロイヤリティ

ありがとう:)必要に応じて試してみてください。しかし、あなたはおそらく私のものと同じような変数を使用していないmとn。これを確認してコードをもう一度見て、元のコードをさらに削ることができることに気付きました^^

— daniero

1

に切り替えm,n=g([c.count(x)for x in set(r)])て、さらに8文字を失うことはありませんm,n=g(map(c.count,set(r)))か？

— ノーレンロイヤリティ

うわー、あなたはまあまあです：Dなぜそれが私の心を滑らせたかわかりません。良いキャッチ、ありがとう！

— daniero

5

Ruby 1.9（427 359 348 338 296 292）

編集：低エースで動作するように修正。

o,p=%w(flush straight)
f=/1{5}|1{4}0+1$/
s=[0]*13
puts Hash[*$*.map{|c|s['23456789TJQKA'.index c[0]]+=1;c[1]}.uniq[1]?[f,p,?4,'four'+a=' of a kind',/3.*2|2.*3/,'full house',?3,'three'+a,/2.*2/,'two pair',?2,'one pair',0,'high card']:[/1{5}$/,'royal '+o,f,p+' '+o,0,o]].find{|r,y|s.join[r]}[1]

基本的な考え方は、各ランクでカードの量の配列を構築し、数字を文字列に連結してから、正規表現を実行して、どの手の形が適合するかを確認することです。異なるスーツ（フラッシュ、ストレートフラッシュ、ロイヤルフラッシュ）に対してチェックするか、他の形状（他のすべて）に対してチェックするかを決定するために、個別のスーツの数をカウントします。

次のように、カードを個別のコマンドライン引数として受け取ります。

>ruby poker-hand-golf.rb 3H 5D JS 3C 7C
one pair

— ポール・プレスティッジ
ソース

4

C、454文字

#define L for(a=1;a<6;a++)for(b=0;b<13;b++)
#define U u[b+6]
#define R(x,y) if(x)puts(#y);else
b,f,r,h=0,s=0,u[20]={0};main(int a,char**v){L U+=v[a][0]=="23456789TJQKA"[b];f=v[1][1];L{if(v[a][1]!=f)f=0;u[a]+=a==U;if(b>7)h+=U;if(a*13+b<64||!U)r=0;else if(++r==5)s=1;}R(f&&h==25,Royal flush)R(f&&s,Straight flush)R(u[4],Four of a kind)R(u[3]&&u[2],Full house)R(f,Flush)R(s,Straight)R(u[3],Three of a kind)R(u[2]==2,Two pair)R(u[2],One pair)R(h,High card);}

引数としてカードを使用してコマンドラインから実行します。例：./a.out 8C 3H 8S 8H 3S

コメント付きの拡張バージョン：

#define L for(a=1;a<6;a++)for(b=0;b<13;b++)
#define R(x,y) if(x)puts(#y);else
#define U u[b+6]
b,f,r,h=0,s=0,u[20]={0};
main(int a,char**v){
    // card usage - u[6..]
    L U+=v[a][0]=="23456789TJQKA"[b];
    // NOTE: lets expand the inner body of the loop in the answer so this looks more sane:
    // flush
    f=v[1][1];L if(v[a][1]!=f)f=0;
    // count of usages - u[0..5] 
    L u[a]+=a==U;
    // high cards x5
    L if(b>7)h+=U;
    // straights
    L if(a*13+b<64||!U)r=0;else if(++r==5)s=1;        
    // display
    R(f&&h==25,Royal flush)
    R(f&&s,Straight flush)
    R(u[4],Four of a kind)
    R(u[3]&&u[2],Full house)
    R(f,Flush)
    R(s,Straight)
    R(u[3],Three of a kind)
    R(u[2]==2,Two pair)
    R(u[2],One pair)
    R(h,High card);    
}

編集：

ループを組み合わせて再利用することで12文字を節約しました。
文字列定数をインライン化して9文字を保存しました。
マクロで文字列化を使用して19文字を保存しました。

— 赤ちゃんウサギ
ソース

3

Mathematica、365

David Carraherの答えに対する私の見解です。

読みやすくするために空白で示しています。

If[
  a = Characters;
  x = Thread;
  r = Range;
  d = Sort[a@StringSplit@# /. x[a@"23456789TJQKA" -> 2~r~14]];
  {t, u} = Sort[Last /@ Tally@#] & /@ x@d;
  c = First /@ d;
  f = u == {5};
  S = "Straight";
  c == r[b = d[[1, 1]], b + 4],
  If[f,
   If[c == 10~r~14, "Royal Flush", S <> " flush"], S],
  If[f, "Flush",
   Switch[t,
    {_, 4},    "Four of a kind",
    {2, 3},    "Full house",
    {__, 3},   "Three of a kind",
    {_, 2, 2}, "Two pair",
    {__, 2},   "One pair",
    _,         "High card"]
  ]
] &

1行バージョン：

If[a=Characters;x=Thread;r=Range;d=Sort[a@StringSplit@#/.x[a@"23456789TJQKA"->2~r~14]];{t,u}=Sort[Last/@Tally@#]&/@x@d;c=First/@d;f=u=={5};S="Straight";c==r[b=d[[1,1]],b+4],If[f,If[c==10~r~14,"Royal Flush",S<>" flush"],S],If[f,"Flush",Switch[t,{_,4},"Four of a kind",{2,3},"Full house",{__,3},"Three of a kind",{_,2,2},"Two pair",{__,2},"One pair",_,"High card"]]]&

— ミスター・ウィザード
ソース

いいねパターンマッチングで節約するスペースさえ見つけました。例えば_代わりに{_,_,_,_}

— DavidC

素敵なソリューション、あなたの両方。文字数を数えるために、「ペア」の名前は「ワンペア」にする必要があると思います。少し悪いように聞こえますが、それが私が投稿し、他の人が実装していることです。

— daniero

@Danieroありがとう。名前を修正します。

— Mr.Wizard

3

K、294 295

d:{F:"Flush";S:"Straight ";P:" Pair";K:" of a kind";$[(f:1=#?,/-1#'c)&("AJKQT")~a@<a:,/j:1#'c:" "\:x;"Royal ",F;f&s:(4#1)~1_-':a@<a:,/(("A23456789TJQKA")!1+!14)@j;S,F;4=p:|/#:'=j;"Four",K;(2;3)~u:a@<a:,/#:'=j;"Full House";f;F;s;S;3=p;"Three",K;(1;2;2)~u;"Two",P;(1;1;1;2)~u;"One",P;"High Card"]}

。

k)d'("TS JS QS KS AS";"3S 4S 5S 7S 6S";"JC JH KS JD JS";"JC JH 2S JD 2C";"2C 9C TC QC 6C";"8C 5D 9H 6C 7D";"8C 8D 9H 8S 7D";"8C 8D 9H 2S 9D";"8C 8D 4H 2S 9D";"3C 8D 4H 2S 9D")
"Royal Flush"
"Straight Flush"
"Four of a kind"
"Full House"
"Flush"
"Straight "
"Three of a kind"
"Two Pair"
"One Pair"
"High Card"

編集：エースローストレートに1文字追加

— マーティン
ソース

3

Pythonの334、326の 322文字

p,f,l,t,o=" pair"," of a kind"," Flush","Straight","A23456789TJQK"
v,u=zip(*raw_input().split())
s=''.join(sorted(v,key=o.find))
print{5:"High card",7:"One"+p,9:"Two"+p,11:"Three"+f,13:"Full house",17:"Four"+f,23:t,24:l[1:],25:t,42:t+l,44:"Royal"+l}[(sum(map(v.count,v)),24)[len(set(u))<2]+((0,20)[s=="ATJQK"],18)[s in o]]

私は最後のライナーがかなり読めなくなってきていることを知っています。解決策に満足したら、ゴルフバージョンではありません。

— ノーレン・ロイヤルティ
ソース

2

GolfScript、258 250文字

3/zip~;.&,(!\{"23456789TJQKA"?}%$.(\{.@- 8%}%\;"\1"-!\.1/.&{1$\-,}%1.$?)"Four"" of a kind":k+{.,2="Full house"{.2\?)"Three"k+{.3-,({.3\?)"One pair"{;"Straight":?;2$2$&{(8="Royal"?if" flush"+}{;?{"Flush""High card"if}if}if}if}"Two pair"if}if}if}if])\;

プログラムは、上記のSTDINでの入力を想定し、STDOUTに出力します。あなたは可能コードを自分でテストします。

> 8C 3H 8S 8H 3S
Full house

> 8C 7H 6S TH 9S
Straight

> AH 3H 4S 2H 6S
High card

編集： w0lfの提案を組み込みました。

— ハワード
ソース

いい解決策！" of a kind"変数は2回使用されるため、変数を入れることで3文字を節約できます。

— クリスチャンルパスク

それも動作します"Straight"

— クリスチャンルパスク

@ w0lfありがとう。あなたの提案をコードに追加しました。

— ハワード

ストレートの検出には微妙なバグがあると思います。ストレートAH KH 2C 3H 4Hと見なされますが、ハイカードである必要があります。

— クリスチャンルパスク

@ w0lfうーん、私はそれについて考えなければなりません...-

— ハワード

2

Mathematica- 500 494 465文字

このソリューションは、Ed Pegg、Jrによるポーカーデモに基づいています。このバージョンでは、カードは内部的に数字として扱われますRange[2,14]

v[x_] := Block[{d, t, c, f, s},
 d = Sort@ToExpression[Characters[ImportString[x, "Table"][[1]]] /. {"T" -> 10, "J" -> 11, "Q" -> 12, "K" -> 13, "A" -> 14}];t = Sort /@ Map[Length, Split /@ Sort /@ Transpose@d, {2}];c = d[[All, 1]];f = (t[[2]] == {5});s = c == Range[b = d[[1, 1]], b + 4];
If[s,
 If[f, If[c == 10~Range~14, "royal flush", "straight flush"],"straight"],
 If[ f, "flush",
Switch[t[[1]],
 {1, 4}, "four of a kind",
 {2, 3}, "full house",
 {1, 1, 3}, "three of a kind",
 {1, 2, 2}, "two pair",
 {1, 1, 1, 2}, "one pair",
 {1, 1, 1, 1, 1}, "high card"]]]]

サンプルの入力、出力：

データ

ノート：

f：フラッシュ

c：カード（スーツなし）

s：ストレート

t：{カード、スイート}

d：

— DavidC
ソース

いいですが、どうやって2つのペアを出しJH 4C 2C JD THますか？

— daniero

あなたは正しいです。一部のコンポーネントを純粋な関数に結合すると、エラーが発生しました。追跡します。

— DavidC

@Danieroあなたが提起した問題は解決されました。

— DavidC

デビッド、これを圧縮する余地はたくさんあります。いいですか？

— ミスターウィザード

@ Mr.Wizard私のゲストになってください。見て学びます。

— DavidC