ポーカー ６

　記号と数字を配列変数に抜き出したので、表示サブルーチンはいらなくなった。削ってしまおう。ついでにカードを手札に変換する必要もなくなったので、配列変数 hand(1-5) もなくしてしまおう。

　いちおう実行。

　プログラムがだいぶすっきりとした。

ポーカー ５

　役の判定をするために、手札の記号と数字をそれぞれ配列変数 suit(1-4) と numb(1-13) に抜き出す。

　記号はカード番号を13で割った整数部分。数字はカード番号を13で割った余り部分。

実行。

左から、スペードのエースは記号0、数字1。スペードの2は記号0、数字2。スペードのジャックは記号0、数字11。ダイヤの3は記号2、数字3。ダイヤの5は記号0、数字5。

ポーカー ４

　52枚のカードをシャッフルして、5枚を配るところまでできた。これをポーカーにするには以下の2つの手順を作らなければならない。

①いらない手札を交換する

②役を判定する

　ポーカーができたあと確率の計算をしてみたいと思うので、とりあえず①の手順は省略する。

　シャッフルのプログラムを簡略化しよう。とりあえず重複しない5枚のカードがあればいいので、プログラムはこうなる。

実行。

ポーカー ３

　手札 card(1-52) が数字では分かりにくいので、スーツ（記号）と数字で表示する。このようにサブルーチンを組んで、

実行。

　二次元配列 card(1-4,1-13) としてもよいが、一次元配列のほうが役の判定が作りやすいように思う。

ポーカー ２

　つぎにシャッフルした52枚のうち、先頭から5枚、すなわち card(1-5) をプレイヤーの手札とする。

　実行。

　52枚のうち、先頭の5枚(この場合 28 34 52 27 22 )が手札となった。