ディーラーの処理を行う

dealer は、ディーラーの処理を行うサブルーチンです。

一般的なブラックジャックのルールに従い、「ディーラーは、16 でドロー(ヒット)/17 でスタンド(ステイ)」としています。


#ディーラーの処理を行う
sub dealer(\@\@\$) {
  my ($stack, $DealerHands, $DealerPoint) = @_;

  while (1) {
    last if ($$DealerPoint >= 17);#16 でドロー(ヒット)/17 でスタンド(ステイ)

    push(@$DealerHands, shift(@$stack));
    $$DealerPoint = &calc(@$DealerHands);
    last if ($$DealerPoint == 0);
  }
}