メインルーチン

メインルーチン

以下は、「ドロー・ポーカーの 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);#正常終了
}