関数で出来ますか～？ 第19問 ストレート

【問】下図のようにB2:F3に5枚のトランプカードが表示される。

　　　　このカードはF9を押下することによって更新される。

　　　　そこで、ストレートならばH2にTRUE、そうでなければFALSEと

　　　　表示させて欲しい。

　　　　書式等は一切禁止。

＊

＊

＊

＊

＊

＊

＊

いろいろ考えた結果、できるだけ

簡単に答えられるようにしようと思います。

できるだけ多くの人に遊んでもらえるように

***********************************************************************

尚、解答発表は5/23（土）の８：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

***********************************************************************

解答用参考ファイル：Q19_2009.zipをダウンロード 

***********************************************************************

Comments

[投稿情報: くまぷー]

公開は火曜日の予定でしたが
忙しくなりそうなので明日を待たずに
公開してしまいました。

よろしくお願いします。m(__)m

[投稿情報: y sakuda]

あららっ、火曜日じゃなかったんでしょうか？
察するところ、中間試験問題は未了状態www

[投稿情報: y sakuda]

>簡単に答えられるようにしようと思います。
まだ、全く考えてませんがが１０が二桁になったのが結構面倒の種かも・・・・・・

[投稿情報: くまぷー]

＞察するところ、中間試験問題は未了状態www

その通り！！
よくおわかりで・・・
やらなくてはならないことは後回し　(^^ゞ

[投稿情報: y sakuda]

なんか、記載が間違ってますが・・・・・

>このカードはF2を押下することによって更新される。
誰も気が付かなかったみたいですが、Q18 でもこう書いてあるwww

>そこで、ツーペアならばH2にTRUE、そうでなければFALSEと
↑もQ18のまんまじゃｗｗｗ

[投稿情報: y sakuda]

ついでに確認ですが、
１２３４５　○
10　JQK1　○
JQK1　2　×
と言うことで良いのですね？

#どうも出題に気が付いているの今の所私だけかな？？

[投稿情報: min]

モヒトツマチガイガ・

[投稿情報: くまぷー]

>なんか、記載が間違ってますが・・・・・

すみませ～ん、とんだ粗相を・・・(^^ゞ
ご指摘ありがとうございます。
直しました。

[投稿情報: くまぷー]

＞モヒトツマチガイガ・

え？！なんだろ？
(°°;))。。オロオロッ。。・・((；°°）

[投稿情報: くまぷー]

＞10　JQK1　○

これってロイヤルストレートという
別役ではありませんか？

[投稿情報: む印]

＞簡単に答えられるようにしようと思います。
ええー、そうかなぁー、、、

＞１０が二桁になったのが結構面倒の種かも・・・・・・　×２
⑩より一文字増えましたｗｗ

[投稿情報: y sakuda]

>別役ではありませんか？
いえ、ストレートで最強というだけです。
これがフラッシュになると、ロイヤルストレートフラッシュになります。

http://ja.wikipedia.org/wiki/%E3%83%9D%E3%83%BC%E3%82%AB%E3%83%BC

[投稿情報: y sakuda]

＞モヒトツマチガイガ・

たぶんあそこかｗ

[投稿情報: y sakuda]

>⑩より一文字増えましたｗｗ
私は10になったので玉砕状態です
今日明日になにか思いつかなけれた観客モードの可能性もｗ

[投稿情報: y sakuda]

>これがフラッシュになると、ロイヤルストレートフラッシュになります。

と言うか、これもストレートフラッシュの最強というだけです。

[投稿情報: くまぷー]

＞>別役ではありませんか？
＞いえ、ストレートで最強というだけです。
＞これがフラッシュになると、ロイヤルストレートフラッシュになります。

えっ？！
すると・・・

＞10　JQK1　○

・・・はいいとして
ロイヤルストレートフラッシュの場合を
除かなくてはいかんのか・・・

自爆してしまったかも・・・

[投稿情報: くまぷー]

＞>これがフラッシュになると、ロイヤルストレートフラッシュになります。

＞と言うか、これもストレートフラッシュの最強というだけです。

えっ？！
すると・・・

＞10　JQK1　○

・・・はいいとして
ストレートフラッシュの場合を

以下同文

[投稿情報: くまぷー]

＞モヒトツマチガイガ・

あ、わかりました。
直しました　(^^ゞ

[投稿情報: む印]

＞ストレートフラッシュの場合を
＞除かなくてはいかんのか・・・
うー、、、想定外でしたぁー、

[投稿情報: y sakuda]

いえ、ストレートフラッシュはストレートのサブセット、つまりストレートとフラッシュの共通集合ということですから、ストレートと判定しないとまずいです。
二つのハンドを並べて、強弱判定を求める場合は違いを考慮する必要があるでしょうがね。

[投稿情報: minmx]

やっとPCからです。
従うかどうかは別にして、ルールの最終決定は出題者の判断で良いかと。。。

ちなみに、 「一太郎マクロ初心者奮戦記Ⅱ」で良いのかなってことだけです。問題にはちょくせつかんけいない？

[投稿情報: くまぷー]

「一太郎マクロ初心者奮戦記Ⅱ？

うん、ちょっと見てきます。
自分で書いたんですけど
忘れています(^^ゞ

[投稿情報: min]

あ、カテゴリの話です。
エクセル関数ですよね？

ＰＣこけたので再び携帯から

[投稿情報: くまぷー]

> 「一太郎マクロ初心者奮戦記Ⅱ」

あ、マチガイってカテゴリだったのね
ようやく、気づきましたorz

[投稿情報: min]

あれ、なおってましたね。

[投稿情報: くまぷー]

＞ルールの最終決定は出題者の判断で良いかと。。。

じゃあ、ストレートになっていれば
TRUEということで・・・

10　JQK1　○

[投稿情報: む印]

>ストレートと判定しないとまずいです。

>じゃあ、ストレートになっていれば
>TRUEということで・・・
ということはストレートフラッシュでも
TRUEということですかぁ？

[投稿情報: y sakuda]

問題は全然進展しないので、ストレートのジェネレータ作りました。
素朴に書いたから間違いないと思いますけど＾＾；
実行する更新を繰り返し、ストレートになると止まります。
何も考えずに書いたので長いですが、ご容赦

Sub Straight()
Dim wCell As Range, wAry(4) As Variant
Dim wSign As Boolean
Dim wMin As Long, wStraight As Long
Dim I As Long, J As Long
With ActiveSheet
Do While wStraight 5 Then
wSign = True
End If
I = I + 1
Next
wMin = 99
For I = 0 To 4
If wAry(I) = 1 And wSign Then
wAry(I) = 14
End If
If wMin > wAry(I) Then
wMin = wAry(I)
End If
Next
For J = 0 To 4
For I = 0 To 4
If wAry(I) = wMin + J Then
wStraight = wStraight + 1
Exit For
End If
Next
Next
Loop
End With
End Sub

[投稿情報: y sakuda]

余談ですが。
日本で普通ポーカーと言うとドロウポーカー（カードを交換できるやつ）ですが、アメリカの博打ではスタッドポーカー（1枚配る毎に賭けて行き、5枚配ったところで、賭金がそろうまで吊り上げ、賭金がそろったところで、オープンして勝負を決めるやつです。
大昔、たしかポール・ニューマンか誰かの主演で全編ポーカーシーンだけみたいな映画があったと思います。
（ハスラーのポーカー版見たいなやつ）
それと題名も忘れましたが、ポーカーに命をかけてるみたいなばくち打ちの小説読んだ覚えがあるな・・・・・

[投稿情報: くまぷー]

>ということはストレートフラッシュでも
TRUEということですかぁ？

そうです。

sakudaさん、ストレートジェネレータ
ありがとうございます。

＞全編ポーカーシーンだけみたいな映画

ちょっと見てみたい気がしますね(^o^)

[投稿情報: む印]

sakudaさんのストレートジェネレータ

>Do While wStraight 5 Then
の部分、Iｆ文が消えちゃってるのでは？

[投稿情報: supermab]

あれ！
１０の丸がなくなってる。

むこうが一段落したーーー
ので、
一生懸命やるのだー！

[投稿情報: y sakuda]

>Do While wStraight 5 Then
すみません　＞　＜　が全部おかしくなってます。忘れてました。

再掲します。
Sub　Straight()
Dim　wCell　As　Range,　wAry(4)　As　Variant
Dim　wSign　As　Boolean
Dim　wMin　As　Long,　wStraight　As　Long
Dim　I　As　Long,　J　As　Long
With　ActiveSheet
　Do　While　wStraight　＜　5
　　　Application.Calculate
　　　I　=　0
　　　wStraight　=　0
　　　wSign　=　False
　　　For　Each　wCell　In　.Range("B2:F2")
　　　　　wAry(I)　=　wCell.Value
　　　　　If　wAry(I)　=　"J"　Then
　　　　　　　　wAry(I)　=　11
　　　　　Else
　　　　　　　　If　wAry(I)　=　"Q"　Then
　　　　　　　　　　　wAry(I)　=　12
　　　　　　　　Else
　　　　　　　　　　　If　wAry(I)　=　"K"　Then
　　　　　　　　　　　　　　wAry(I)　=　13
　　　　　　　　　　　End　If
　　　　　　　　End　If
　　　　　End　If
　　　　　If　wAry(I)　＞　5　Then
　　　　　　　wSign　=　True
　　　　　End　If
　　　　　I　=　I　+　1
　　　Next
　　　wMin　=　99
　　　For　I　=　0　To　4
　　　　If　wAry(I)　=　1　And　wSign　Then
　　　　　　　wAry(I)　=　14
　　　　End　If
　　　　If　wMin　＞　wAry(I)　Then
　　　　　　　wMin　=　wAry(I)
　　　　End　If
　　　Next
　　　For　J　=　0　To　4
　　　　For　I　=　0　To　4
　　　　　　If　wAry(I)　=　wMin　+　J　Then
　　　　　　　　　wStraight　=　wStraight　+　1
　　　　　　　　　Exit　For
　　　　　　End　If
　　　　Next
　　　Next
　Loop
End　With
End　Sub

[投稿情報: y sakuda]

今日、やっと大丈夫そうなのができました。
配列数式で126と言う長大なものですけど・・・・・

[投稿情報: くまぷー]

ただ今帰って来ました。

＞配列数式で126と言う長大なものですけど・・・・・

負けました。こちら、やってみたら１５１でした。
この考えではこれ以上短くはなりそうもありません。
結局、ロイヤルストレートの判定で長くなってしまいます。

ロイヤルストレートなし部門なら短いのに・・・

[投稿情報: くまぷー]

＞一生懸命やるのだー！
supermabさん、お久しぶり！
前回の分もよろしくお願いします。(^o^)

ところでジョー３さんが静かすぎるな。
まさか、新型インフルエンザ東北感染第一号では？！

[投稿情報: y sakuda]

>ロイヤルストレートなし部門なら短いのに・・・
私のは結局やっていることは同じですから、↑で85とこれも結構長めです。

ジェネレータ、良く考えてみると、ストレートじゃないやつをストレートと判定しちゃってるケースなんかも検出しないと意味がなさそうですね。後で何とかしてみます。

[投稿情報: くまぷー]

＞>ロイヤルストレートなし部門なら短いのに・・・
＞私のは結局やっていることは同じですから、↑で85とこれも結構長めです。

５２です(^^ゞ

[投稿情報: くまぷー]

あ、サンプルブックのDATAシート保護解除の
パスワードはkumapoohです。
DATAシートの中身を見たい方は
どうぞ。

基本的にはQ18のものと同じですが・・・(^^ゞ

[投稿情報: y sakuda]

チェックプログラム修正しました。
式の入ったセルを選択した状態で走らせると、ストレートができた時と、式がTrueになった時に止まります。
したがって誤判定をやっていればそこで止まります。

Sub StraightV2()
Dim wCell As Range, wAry(4) As Variant
Dim wSign As Boolean
Dim wMin As Long, wStraight As Long
Dim wACell As Range, wASign As Boolean
Dim I As Long, J As Long
With ActiveSheet
Set wACell = ActiveCell
wASign = False
Do While wStraight ＜ 5 And wASign = False
Application.Calculate
I = 0
wStraight = 0
wSign = False
For Each wCell In .Range("B2:F2")
wAry(I) = wCell.Value
If wAry(I) = "J" Then
wAry(I) = 11
Else
If wAry(I) = "Q" Then
wAry(I) = 12
Else
If wAry(I) = "K" Then
wAry(I) = 13
End If
End If
End If
If wAry(I) ＞ 5 Then
wSign = True
End If
I = I + 1
Next
wMin = 99
For I = 0 To 4
If wAry(I) = 1 And wSign Then
wAry(I) = 14
End If
If wMin ＞ wAry(I) Then
wMin = wAry(I)
End If
Next
For J = 0 To 4
For I = 0 To 4
If wAry(I) = wMin + J Then
wStraight = wStraight + 1
Exit For
End If
Next
Next
wASign = wACell.Value
Loop
End With
End Sub

[投稿情報: y sakuda]

>５２です(^^ゞ
こっちは全く勝負にならないですねーー

[投稿情報: supermab]

>ストレートのジェネレータ

有難うございます！
みてるだけで、満足してしまいますw

[投稿情報: からくち]

＞>５２です(^^ゞ
＞こっちは全く勝負にならないですねーー Ｘ２

パッと見では取りあえず７９・・・かな
１・１０・Ｊ・Ｑ・Ｋ
も判定するために
仕方なく少々遠回り？な取得方を
まだしている気がする

[投稿情報: supermab]

やったー！！
ロイヤルストレートになった！

で、１がAでない事に気づいた。

ロイヤルストレートフラッシュが
出た方おられますか？

んーーーー
なかなか、ならんなーーー

ついやってしまって・・・
ちっとも、かんがえてない！

[投稿情報: む印]

ｙ sakudaさま、ジェネレーター便利ですぅー＾＾/
Ｆ9でストレートを出すのは一苦労でしたから非常に助かります！
これでしっかり確認できました。

「10ＪＱＫ1（ロイヤルストレート）」対応
長い方は１０７文字、短いほうは６７文字です！

[投稿情報: y sakuda]

>ロイヤルストレートフラッシュが
おお、ちょっとすごいですね。
確か、ジェネレータテストしている時できているのに一回はっきり見ました＾＾

[投稿情報: くまぷー]

えっ？！
ロイヤルストレート対応で
６７ですか？！

◇＼(o・Ｑ・o)／◇降参

[投稿情報: y sakuda]

>みてるだけで、満足してしまいますw
見ててもしょうがないですねーー

>ｙ sakudaさま、ジェネレーター便利ですぅー＾＾/
大したもんじゃ有りませんが、お役に立てたようでうれしいです＾＾

>パッと見では取りあえず７９・・・かな
>長い方は１０７文字、短いほうは６７文字です！

丸で勝負にならないこと確定ｗ
観客モード＋裏方に徹するかな＾＾

[投稿情報: y sakuda]

いじくり回してますが、122になっただけ・・・
なんかパラダイムがないと100は切れそうもないな・・・・

[投稿情報: ますたあ]

今回も難しいですね～。^^;
しか～し、前回式が作れなかったので
今回は何でかんで頑張るぞ～。

２連敗はしたくない．．．。

[投稿情報: y sakuda]

>今回は何でかんで頑張るぞ～。
ガンバレーー

しかし・・・・・それにしてもジョー3は？？？

[投稿情報: くまぷー]

>>今回は何でかんで頑張るぞ～。
>ガンバレーー ×２

[投稿情報: くまぷー]

＞しかし・・・・・それにしてもジョー3は？？？

今までこんなことは
なかったですね～

無事だといいんですが・・・

[投稿情報: からくち]

考え方は殆ど変わりませんが

＞仕方なく少々遠回り？な取得方を
この部分を弄ってみたら６４になりました

でもこの考え方ではこれが限界のような・・・

[投稿情報: む印]

>でもこの考え方ではこれが限界のような・・・
からくちさんに刺激を受けて見直したら、
長い方が９８、短い方は６３に出来ましたｄ＾＾

[投稿情報: からくち]

＞刺激を受けて見直したら、
なるほど
何事も諦めなければ可能になるのですね

＞これが限界のような・・・
６３になりました

これって同じ式・・・なのかな？

[投稿情報: む印]

からくちさん、どうもです＾＾

＞これって同じ式・・・なのかな？
ロイヤルストレート対応なしにすると４５文字なら
たぶん同じではないでしょうか・・・＾＾

　
それにしても、ホントにジョー３さんは
どうされているんでしょう？

[投稿情報: ジョー3]

げんきでーーす
・・・・・
忙しかっただけーーーー
で、ヤッテナイ・・・・

さてこれから・・・・

で、１２３４５から９１０ＪＱＫ　と
１０ＪＱＫ１　ありに、分かれてるんですね、・・・・

[投稿情報: くまぷー]

からくちさん、む印さんは
ロイヤルストレート対応で
６３ですか。
うーん、かないませんなぁ・・・

おー、じょー３さん、無事でしたか？
よかった、よかった。
あまりにも静かなのでちょっと心配しました(^^ゞ

[投稿情報: からくち]

＞たぶん同じではないでしょうか・・・＾＾
わたしもそう思います
若しそうでしたら

＞ロイヤルストレート対応で
＞６３ですか。
いや、、、

＞何事も諦めなければ可能になるのですね
５９になりました

以前より式は考え方次第と言って来ましたが
こんな単純なことを
何故端から考えなかったのだろう

[投稿情報: supermab]

>２連敗はしたくない．．．。

ｘ２

で、
ヤッテルけど・・・
んーーー、、、できん・・・
どうしていいのかピンとこない！

で、
憂さ晴らしにマクロのボタンを押して、
ロイヤルストレートフラッシュをねらう！

が、
なかなか、ならないーーー！！

泣きっ面にハチである。

[投稿情報: ジョー３]

あーーー
首が痛い・・・・
首こり・・・・

プロに前に、揉んでもらったら、・・・

ビーフ、ジャーキー・・・
のようだと言われた、・・・・

ことがあった。

で、・・・・むむーーーーー

[投稿情報: y sakuda]

59だ、45だと、お二方だけ別世界に遊んでおられるような・・・・・・

[投稿情報: む印]

>５９になりました
>こんな単純なことを
>何故端から考えなかったのだろう
おぁー、言われないと気がつかなかったです^^;
５９文字、納得しましたm(__)m
したがって、長いほうも９４文字です。

[投稿情報: む印]

ジョー３さん、お元気そうで良かったです。

こちらではついに新型インフルエンザ感染者が出てしまい、
食品の買い貯めなど、皆さんかなり過剰に反応しだしました。
どうなることやら・・・

[投稿情報: minmax]

紙に書いて数えてみた
66だった
動く保証全くなし

[投稿情報: minmax]

PCでやってみた
66何となく動いてる

[投稿情報: minmax]

66はロイヤルなしだと４７
式があってればですが・・・

[投稿情報: くまぷー]

minmaxさん、紙でやって６６だからな～
今更ながらですが、やはりカミ技！！

[投稿情報: くまぷー]

からくちさんから、問題を頂きました。
この場を借りてお礼を申し上げます。

[投稿情報: む印]

minさんは４７ですかぁー・・・？
エンジン部分は同じだとおもうのですが、
これは新型っぽいですねー

＞からくちさんから、問題を頂きました。
おお、どんなのか楽しみですが、
問題見た途端に発熱しないといいけど・・・^^;

[投稿情報: ジョー3]

ちょっとやったが・・・・
むむーーー
短くならない。

ロイヤルでないのに・・・・

[投稿情報: む印]

夕方から、やけに暇になったので
minさんの６６を探る旅に･･･
･･･で、エンジンは殆ど同じ
＞66はロイヤルなしだと４７
にピタッとハマるのがありましたd

お陰で、別エンジンの66も発見^^

＞短くならない。
？？？
前回答え合せ後半、くまぷーさんが何やら・・・
私はそれで短い方の〆は決まりました。

[投稿情報: くまぷー]

>前回答え合せ後半、くまぷーさんが何やら・・・

へへへへ・・・
基本は同じ・・・

でも、む印さんほど短くならない　(>_<)

[投稿情報: y sakuda]

くまぷーさんの発言私も気になっているのですが、なーーにも思い付かない・・・・・・
片割れの方は比較的簡単なやり方あると思うのですが、それが特に使えるとも思えない・・・・・
全然別エンジンみたいですねーー
今回は122のままギブアップの可能性も高くなってきたようにも＾＾；

[投稿情報: くまぷー]

>くまぷーさんの発言私も気になっているのですが、なーーにも思い付かない・・・・・・

そーか、では今のうちに削除しちゃおうか・・・(^^ゞ

[投稿情報: ジョー３]

ロイヤルなし、
４０台だけど、、、

sakudaチェックまだしていない。
＆
もしかしたら、ズルかなーー

ずーーと、会話の流れが理解できてなかったので、、、

わからん！！

[投稿情報: くまぷー]

sakudaさんから、問題のアイデァを
頂きました。
ありがとうございます。

「児雷也・綱手・大蛇丸」といったところでしょうか？
お楽しみを・・・

[投稿情報: ジョー３]

＞sakudaチェックまだしていない。
お！！・・・いいぞーーー
ok
ok
ok
ok
ok
ok
・・・・・・ん・・・・・・
死んでしまった。・・・・・
４３文字が、死んでしまった。

ｓａｋｕｄａさんの判定プログラムは強かった。

・・・・・・・・

[投稿情報: ジョー３]

修正：４４文字
３０回ＯＫだった、
でも、なんか、死にそうな気がする。
・・・・だはは、、、

[投稿情報: くまぷー]

>４３文字が、死んでしまった。

ご愁傷様です。
ちーん・・・

[投稿情報: y sakuda]

ジョー３も何か見つけたみたいですねーー
私は相変わらずダメです。
正攻法のやつは若干普通のダイエットして122⇒117
悔し紛れの裏口入学さえ、55,86で話になんない＾＾；

[投稿情報: y sakuda]

>「児雷也・綱手・大蛇丸」といったところでしょうか？
あれが、なんでこうなる？？
まあ、どういうことになるのか楽しみにしてます＾＾
因みにアイデアは出しましたが、どうやったら上手く行くのか全く白紙ですｗ
（単なる思い付きを振っただけーー）

[投稿情報: ジョー３]

夕べのみながら・・・・
遊んだやつは・・・・・
・・・・・・
全部、死んでいた。
・・・・・・
ばいばい・・・

[投稿情報: くまぷー]

ジョー３さん、ずいぶん早起きですね。
お早うございます。(^o^)

＞>「児雷也・綱手・大蛇丸」といったところでしょうか？
＞あれが、なんでこうなる？？

ふふふ

[投稿情報: む印]

「ロイヤルなし」の追及、
面白そうなのでやってみました。
４２文字というところです・・・

[投稿情報: minmax]

からくちさん方式なら42より短くなったかと？

また出先からです

[投稿情報: む印]

>からくちさん方式なら42より短くなったかと？
そうなんですかぁー・・・
う～～、、わかりません、、、、

[投稿情報: minmax]

文字数覚えていないけどあの特殊なsakudaさんのブロクラムで判定できないやつなら確かもっと短くなったような気がするってことです…

[投稿情報:]

皆さんの表現が・・・わからなくなってきた。

>正攻法のやつは若干普通のダイエットして122⇒117
>悔し紛れの裏口入学さえ、55,86で話になんない＾＾；
裏口って、
DATAのほうからのことですか？

＞「ロイヤルなし」の追及、
＞面白そうなのでやってみました。
＞４２文字というところです・・・
４２は、表口？裏口？

今のところ
表口、ロイヤルなししかやってない。
・・・・・
今のところ、sakudaチェックに
２０回ぐらい合格・・・・
もしこし、、チェックします。

[投稿情報: y sakuda]

>裏口って、
>DATAのほうからのことですか？
です。
どうもこの問題、素朴な方法しか思いつけないのでどうしても長くなってます＾＾；

>皆さんの表現が・・・わからなくなってきた。
×２

>ブロクラムで判定できないやつなら確かもっと短くなったような気がするってことです…
どういう意味でしょうか＞minmaxさん
なんか条件もらしてましたかーーー？

[投稿情報:]

＞>裏口って、
＞>DATAのほうからのことですか？
＞です。
どうもですーー
この問題、面白いですが、、
sakuda判定プログラムが、、
それ以上に面白いです。
１）１０回目ぐらいで、却下されたケース
２）１５回ぐらいのケース
３）２０回ぐらいのケース
たくさん、たくさん、殴られた感じです。

今回の
表口
４７文字は、、
３０回OKが、出ました。
喜んでいいのかなーー

[投稿情報: minmax]

プログラムに問題はないと思います。
コードは確認してないけど

[投稿情報: y sakuda]

>プログラムに問題はないと思います。
ん？？
とすると、判定できないやつって何じゃろか？

[投稿情報:]

＞４７文字は、、
＞３０回OKが、出ました。
４０回okなので、完成みたいです。
あーーーーー
４７は、もちろん、ロイヤルなしです。

今回は、
４項目のうち１項目だけで、終わるかもーーー

[投稿情報: ますたあ]

う～～む、頑張ってはいるんですが・・・。(-_-;)

配列で上手く抽出（J・Q・Kの変換なんかね）できないですね。
さらに・・・、ストレートの判定エンジンが未完成だったりします。

時間が．．．。^^;

＞sakuda判定プログラムが、、
＞それ以上に面白いです。
これ素晴らしいですよね。
なかったら大変でした。
まだ完成してないけど．．．。(^^ゞ

[投稿情報: む印]

>あの特殊なsakudaさんのブロクラムで判定できないやつなら･･･
あぁー、あれのことでしたかぁー。
確かにあれなら３３文字ぐらいですかねぇｄ
一番最初にやってみたやつでしたが･･･
何で#N/Aなんですかぁー？？
　

>４２は、表口？裏口？
DATAを使った方です＾＾

[投稿情報: ジョー３]

どなたか、まとめてください。

DATAあり（裏から)
ロイヤルなし　　１）？？文字
ロイヤルあり　　２）？？文字

DATAなし（表から)
ロイヤルなし　　３）？？文字
ロイヤルあり　　４）？？文字
・・・・・・

[投稿情報: む印]

私も、やっと出ました
ロイヤルストレートフラッシュｄ＾＾
http://www.21style.jp/bbs/jsp55/index.html

ジョー３様、
またまた・・使わせて頂きましたm(__)m

[投稿情報: y sakuda]

>何で#N/Aなんですかぁー？？
判定できないやつって＃N/Aになっちゃうやつのことですか。
確かに、選択状態にして動かすとアウトになりますね。
気が付いてましたが、そうなること自体もうアウトと解釈して、対応してないです。