メインルーチン
以下は、「ドロー・ポーカーの Perl プログラム」のメインルーチンです。
必要なサブルーチンを呼び出して、全体を制御しています。
{
my (@stack); #カードの山
my (@player);#プレーヤーの手札
my (@hands); #役の種類
@suits = (
'S',#spade
'H',#heart
'D',#diamond
'C' #club
);
@hands = (
'No Pair',
'One Pair',
'Two Pair',
'Three of a Kind',
'Straight',
'Flush',
'Full House',
'Four of a Kind',
'Straight Flush',
'Royal Straight Flush'
);
#カードを混ぜる
&shuffle(\@stack);
#カードを配る
for (0 .. M - 1) {
push(@player, shift(@stack));
}
#カードを画面に表示する
&display(@player);
#カードを交換する
&change(\@player, \@stack);
#カードを画面に表示する
&display(@player);
#役を確認する
printf "%s\n", $hands[&check(@player)];
exit(0);#正常終了
}
- トランプ・ポーカー
- トランプ・ブラックジャック
- ギャンブルから株式為替まで役立つ資金管理
- 株式投資や為替取引のリスクマネジメント
- カード被害が預金者保護法で補償された体験
- アニメで英会話/台詞逆輸入
- 右脳と左脳を鍛える開発トレーニング