カードを画面に表示する
display は、カードを画面に表示するサブルーチンです。
手札を配列として、標準出力に出力しています。
#カードを画面に表示する
sub display(@) {
my (@player) = @_;
for (0 .. $#player) {
my ($s, $n);#カードの印と数字
#番号をカードに換算する
($s, $n) = &calc($player[$_]);
#カードを画面に表示する
printf "%s%02d", $suits[$s], $n + 1;
print " " if ($_ != $#player);
}
print "\n";
}
- トランプ・ポーカー
- トランプ・ブラックジャック
- ギャンブルから株式為替まで役立つ資金管理
- 株式投資や為替取引のリスクマネジメント
- カード被害が預金者保護法で補償された体験
- アニメで英会話/台詞逆輸入
- 右脳と左脳を鍛える開発トレーニング