カードを画面に表示する

トランプ・ポーカー

カードを画面に表示する

display は、カードを画面に表示するサブルーチンです。

手札を配列として、標準出力に出力しています。

#カードを画面に表示する
sub display {
  local($s, $n, @suits);

  #カードの種類
  @suits = ('spade',
            'heart',
            'diamond',
            'club');

  for (0 .. 4) {
    #0 から 51 までの番号をカードに換算する
    ($s, $n) = &calc($player[$_]);

    #カードを画面に表示する
    printf "%s-%d ", $suits[$s], $n + 1;
  }
  printf "\n";
}

トランプ・ポーカー > ドロー・ポーカーの Perl プログラム > カードを画面に表示する

トランプ・ポーカー