←前 2000年12月下旬 ↑index 2001年01月中旬 次→
■ 年末年始は、装着変身担当だったり、 世紀末の木星フライバイをすっかり忘れてたり、 電波少年見てカウントダウンずれフフリだったり、 クウガ新年特番で「ふりむくな!」だったり、 うっかりrgetしたら/tmpあふれさせて人々に迷惑かけたり、 冬になったら太平洋側では富士山がよく見えたり、 某書の校正が終らなかったり、Palmプログラミングはできなかったりでした。
■ うげげ、 こんなとこからツッコミがくるとは。 12月1日の日記に書いとこうと思って忘れてたものを下に書いちゃえ。 9進法で数えるとバギング・ズゴゴド、ズゴゴビヂ遅れですな。ところでお仕事集見てみたいですー(笑)
■
そんなわけで久びさの音ゲー記録。1月7日、SATYにて。ありゃ、1ゲーム200円に戻ってるよ。
Ex.R: Powerful Mix(A)
新宿警察24時だか何だかをやったら太ももが痛かったり。
バーチャコップと違って命中率が5割くらいしか行かないのねん。
■ てなわけですっかり旬をのがした鉄人の解説をば以下に。
■ Perl/Ruby鉄人の問題と回答例が野首さんの日記にあります。 出題者解は以下のとおり。
perl -MFile::Find -e 'sub wanted{/\.htm$/ and push(@x,$_)} find(\&wanted, "."); rename $_, $_ . "l" for (@x)'
perl -nle '@x=();do{unshift(@x, $_%9); $_ = int($_/9)}while ($_);print @x'
perl -l40e '$n=shift;for(2..$n){$P[$_]and next;print;$b=$_;while($b<=$n){$P[$b+=$_]++}}' 1000
perl -l40e 'O:for(2..shift){for$p(@x){$_%$p or next O}push(@x,$_)}print for@x' 1000
perl -l40e 'for(2..shift){$t=1;for$p(@x){$t*=$_%$p}$t and push(@x,$_);$t}' 1000
なんとRubyのサンプルプログラムにsieve.rbがあったのでした(しかも鉄人わたなべさんの作品)。
use LWP::Simple;
$text = get("http://lc.linux.or.jp/t-detail.html");
use Jcode;
$text = Jcode->new($text)->euc;
for (split("\n\n", $text)) {
next unless /CLASS="(a-)?tutorial"/;
my ($title) = m[<SPAN CLASS="(?:a-)?tutorial"><A.*?>(.*?)</A></SPAN>];
my ($date, $time) = m[^<SMALL>\(<A HREF=".*?">([\d/]+)</A> ([\d:]+)〜]m;
print "$title\t$date\t$time\n";
}
やまだあきらさんが、
日時を取り出すのにナゾの正規表現「</P></DD>」を使ってましたが、
これこそがワンライナーの醍醐味。
今日ここで動けばいい → 処理すべき問題のドメインが限定される → ものすごい「ずる」も許される。