smoking186 https://blog.hatena.ne.jp/smoking186/ 186 @ hatenablog https://186.hatenablog.com/ hatena for id:dasm:20050919#1127092572 無駄が多いビンゴカード抽選プログラム。 ビンゴカードを作り抽選を行って、ビンゴカードと何回目に何回ビンゴしたかを返す。一応モンテカルロ法、無駄にMersenne Twister。 1から15までrandom permutation掛けるの面倒臭かったので、一様分布で強引に代用。本当はどうやってするのか、知らね。 use Strict; use Math::Random::MT qw(srand rand); package main; # print "Sim\n"; srand(1); my $count = 100; my %… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2F186.hatenablog.com%2Fentry%2F20050919%2F1127104905" title=" こんなん? - 186 @ hatenablog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2005-09-19 13:41:45 rich https://186.hatenablog.com/entry/20050919/1127104905 1.0 100%