竹Blog

#! /bin/perl
use Math::Random::MT qw(rand srand);
use POSIX qw(floor ceil);

# from https://takarakuji.rakuten.co.jp/data/loto/loto6/numbers_frequency/
# 2024/09/17
my %appear = ('1' => 4,
              '2' => 8,
              '3' => 8,
              '4' => 8,
              '5' => 12,
              '6' => 8,
              '7' => 10,
              '8' => 5,
              '9' => 7,
              '10' => 7,
              '11' => 8,
              '12' => 3,
              '13' => 3,
              '14' => 6,
              '15' => 5,
              '16' => 5,
              '17' => 4,
              '18' => 12,
              '19' => 9,
              '20' => 5,
              '21' => 7,
              '22' => 7,
              '23' => 11,
              '24' => 9,
              '25' => 9,
              '26' => 5,
              '27' => 6,
              '28' => 6,
              '29' => 13,
              '30' => 9,
              '31' => 5,
              '32' => 4,
              '33' => 11,
              '34' => 6,
              '35' => 4,
              '36' => 10,
              '37' => 8,
              '38' => 5,
              '39' => 4,
              '40' => 7,
              '41' => 7,
              '42' => 8,
              '43' => 4,
             );

# 各数字を出現回数だけ格納した配列を作る
my @ar;
while (my ($key, $value) = each(%appear)) {
  my $i = 0;
  # valueの数だけ配列に数字を加える
  while ($i < $value) {
    push @ar, $key;
    $i++;
  }
}

# 配列から要素を取り出していく
my @res; # result

# 乱数の初期化
srand time^$$;

my $i = 0;
while ($i < 6) {
  # 配列の要素数内で乱数を取る
  my $num = floor(rand $#ar);
  # 乱数を添字として数値を取り出す
  my $hit = @ar[$num];
  push @res, $hit;
  # 取り出した要素と同じ数値をを配列から全て削除
  @ar = grep $_ ne $hit, @ar;

  $i++;
}

#表示
@res = sort { $a <=> $b } @res;
$, = ' ';
$\ = "\n";
print @res;