0 から 51 までの番号をカードに換算する : ドロー・ポーカーの Perl プログラム

calc は、0 から 51 までの番号をカードに換算するサブルーチンです。

1 組のカードを 1 次元の配列として扱っているので、換算が必要になります。


#0 から 51 までの番号をカードに換算する
sub calc {
  local($index, $s, $n);

  $index = $_[0];
  $s     = int($index / 13);
  $n     = $index % 13;
  ($s, $n);
}