番号をカードに換算する

番号をカードに換算する

calc は、番号をカードに換算するサブルーチンです。

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


#番号をカードに換算する
sub calc($) {
  my ($index) = @_;

  return(int(($index % IMAX) / 13), ($index % IMAX) % 13);
}