870 名前：[] 投稿日：2010/12/05(日) 03:26:10 ID:KAaqq6JQ0
無差別にやりたいのに

my $be = shift
or die "usage: $0 BE_NUMBER\n";
my $x = int($be/10) % 10;
my $y = $be % 10;
die "$0: illegal be-number: $be\n" if $x < 2 || $x > 9 || $y < 2 || $y > 9;
my $k = $x * $y * 3;
my $n = int($be/100) + $x - $y - 5;
die "$0: illegal be-number: $be\n" if $n % $k != 0;
my $id = $n / $k;
my @list = ();
for my $y (2..9) {
for my $x (2..9) {
my $be = ($id * 3 * $x * $y - $x + $y + 5) * 100 + $x*10 + $y;
push(@list, $be);
}
}
for my $be (sort {$a<=>$b} @list) {
print "http://be.2ch.net/test/p.php?i=$be\n";
}



これがなぜか失敗する
なぜじゃあああああ


おいプロ教えてやれよ