#!C:/Perl/bin/perl for($i = 0; $i < 2**25; $i++){ @field = (); $num = $i: for($j = 24; $j >= 0; $j--){ if($num >= 2 ** $j){ $field[$j] = 1; $num -= 2 ** $j; } else{ $field[$j] = 0; } } } sub check_bingo{ my @field = @_; my ($i, $j, $flag);…

今日はハンゲのビンゴゲームにハマった一日だった。ルールは割愛するがこれは結構単純なゲームで、今、全探索が可能なのではないかと思ってプログラムを書いて分析しようと思っている。5列以上ビンゴになるとあがりになるんだけど、5列以上になるのは298通り…