ポーカーの役判定 in diff DouKaku?

ポーカーの役判定

引数に手札を与えると、ポーカーの役を表示するプログラムを作ってください。

条件：

スートはS,D,H,C、ランクはA,2～9,T,J,Q,Kのそれぞれ一文字で表します。
手札は S2D5H3CQS9 のように10文字で指定されます。特にソートはされていません。
手札にジョーカーは含まれません。
ストレートで取りうるランクの種類はA2345, 23456 ... 9TJQK, TJQKAの10種類で、JQKA2のようにK-A-2をまたぐものはストレートではありません。

実行例：

% ./poker SQSJSASKST
Royal flush

% ./poker D9D7D6D5D8
Straight flush

% ./poker C2D2S2H3H2
Four of a kind

% ./poker C2D3S2H3H2
Full house

% ./poker S9S4S8STSJ
Flush

% ./poker C4H7D5S6H3
Straight

% ./poker S6H6C5DQC6
Three of a kind

% ./poker S6HQC5DQC6
Two pair

% ./poker S6H4C5DQC6
One pair

% ./poker SJSQSKSAC2
No pair

see: ポーカー - Wikipedia

お題にしようと思っていたのに間違えてしまいました。今から変更可能でしょうか？

(説明)
当初間違ってトピックに投稿していたので、このようなコメントを付けていたのですが、
このコメントに気づいた管理人さんにお題に移していただきました。
(最初の2つだけ投稿日時が早いのはそのためです)

post comment

Posted feedbacks - diff

すみません、１箇所ミスってました。

@@ -8,7 +8,7 @@
       case _ => false
     }
     val flush_? = cs.forall(cs(0)._1 == _._1)
-    val st_? = (1 to 9).map(i=>cs(0)._2==i && cs(4)._2==i+4).exists(true==) || royalSt_?
+    val st_? = (1 to 9).map(i=>(0 to 4).forall(j=>cs(j)._2==i+j)).exists(true==) || royalSt_?
     val p = (((List(List[(char,int)]())) /: List.make(2, cs)){
               for(i <-_; j <-_) yield j::i
             }.filter(c=>c(0)._2 == c(1)._2).size - 5)/2

すいません、修正前のをコピペしてました。実行例も不要なxが混じってました。正確には、 (format t "~A => ~A~%" (hand "SQSJSASKST")) です。

40c40
<       (destructuring-bind (ignore flashp kinds 3-2p) hand
---
>       (destructuring-bind (ignore flashp straightp kinds 3-2p) hand

DouKaku?

ポーカーの役判定

Posted feedbacks - diff

Index

Feed

Other

Link

Pathtraq