[過去ﾛｸﾞ] 【news】ニュース速報運用情報666【ν】 (1001ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

50(3): 動け動けウゴウゴ２ちゃんねる [sage] 2010/12/05(日)03:28 ID:0NLthJW9P(1/6)
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 9 || $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";
}

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

おいプロ教えてやれよ

---

上下前次1-新書関写板覧索設栞歴

---

あと 951 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.008s