08/03/01 16:46:41 RHjNKTxl0
>>293 >>295みたいに
beが同じなら基礎be番号は一定だから
元スレからのURLが変わっても同一人物というのが証明できる
誰かマジでスクリプト頼む
番号算出のPerl版っぽい奴も置いとく
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 "URLﾘﾝｸ(be.2ch.net)";
}