ログ漁ったらこんなのあったけど全く読めないので違ったらごめんね

936 名前：動け動けウゴウゴ２ちゃんねる[sage] 投稿日：2007/08/17(金) 03:50:38 ID:d6Jed2Q50
#! /usr/bin/perl

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";
}