OBJECTIVES’

いきなり月曜日に花見。会社のだけど。
今日が一番いい感じの花の開き具合なのではなかろうか。

実はまだ動作させられてません。基本のXML関連のモジュールが無いとか、かなりのしょんぼりな内容の問題なのは明確なんですが、加えてPerlのバージョンにも難があるようなので、いやはや……といった状況。
MovableTypeを動かすのに使ってるバージョンが5.005なのはいいんですが、ちょっと調べたらpatch level 2でした……今ならpatch level 3じゃないか？

あと、このサーバは仮想root環境だったりするのでいろいろややこしいんですね。
個人的にPerl5.6.1が使いたくて、この環境でmakeしたことがあるんですが……。Perlを使ったCGIプログラム中でモジュールを利用するのに、BEGINで@INCをいじる必要が発生してしまって汎用性がガタ落ち。結果、あちらを立てればこちらが立たずのスパイラルに突入。そんなわけで余計な苦労をするのには、いい加減疲れた。というわけで管理会社提供の環境で整えるかなぁ……と考えてMTは管理会社提供の環境で立ち上げたんですが、どちらにせよいろいろ不便だなぁと世間の厳しさをなんとなく実感してる今日この頃です……。

ありえない。
松プリ、土曜日夜にKOFやってる人間も、ＧＧＸＸやってる人間もいないってのはあり得ないって。結局２００円使ってKOF2002の１人プレイを４回ほど。乱入してくる対戦相手もいないからＭＡＸ龍虎乱舞の練習しただけ……今日の打率はまぁまぁでした。超烈破弾で返されたのには参ったけど（間合いのせいだけど）。

で、なんとなくやるもの無いかなぁと店内をふらふらっと。先日のゲームやり放題（２ヶ月に１回やるそうな。次回は５月）のとき、とりのがしたカエルくんをＧＥＴしようかと一瞬迷ったけど結局やめ。やけに難易度高いんだよコイツ（前回あきらめるまでに、いくら投資したか考えると泣ける……）。で、３２１氏がコツをがあるというので聞く。が、テンションも実際のところあがってなかったので結局チャレンジはせず。ウシくんだけってのはなんかみっともないので在庫が無くならないうちにそろえたいんですけどねえ。

結局、今日はな～んにも盛り上がりそうないので店をあとに。
車に乗り込み、そういえばと何を血迷ったか平食をナビで検索してる私（笑）。
前回、平食に行ったのはマーヴルＶＳカプコン２の稼働開始した頃。あれから、どれくらい変わってるのかを確かめてみようかな、と。あと最近、連邦でネタになってたのも行こうかなと思いついたきっかけなのは間違いないです（笑）。

高速（うえ）をつかわなかったんで１時間強で到着。
んー……ふぁんたじっくだ。未だに自販機１００円だしさ（笑）
ＶＦ４対戦台がずらり。脇に頭文字Ｄ３が対戦筐体が。あと麻雀格闘クラブとスロットがいっぱい。ＶＦ４のもりあがりっぷりが半端じゃないなぁと感じながらプライズ系の筐体があるエリアをふらふら。
微妙…。
うーむ。結局私何もしてない？

あ、せっかくなのでおでん食べました。５品で３００円也。

あ、ＵＦＯキャッチャーで工口ＤＶＤでもＧＥＴすればネタになったかもしれないんだった。
惜しいことをしたかも（笑）

楽遊、のぞきわすれたのが一番の失敗だよな＞私（汗）

冷静になって考えた。あーだ、こーだやらなくてもこれだけでよかった。
リソースの無駄遣いしたプログラムばかり組んでちゃいかんね（笑）

[code]
@score = sort {$a < => $b } @score;
for my $n (0..9){
print “$n | “;
foreach( @score ){
if( ($n*10 <= $_) and ($_ < ($n+1)*10) ){
print $_ % 10;
}
}
print “\n”;
}
[/code]

来ました新しいのが。問題はこちらのバックナンバーを参照してください。
うーん。今回のクイズは解法に個人差がものすごくありそうです。
もともと同じ手段をとっているのに異なる書き方ができる言語なんで、正確に伝えるのが難しいんですが今回のは手段が多そう、という意味です。……わかりにくいなぁ。
さて、私の短絡した思考で作った今回の解答がこれ。

題意を満たすサブルーチンBuildTreeを作成。
問題文の最後に追加すれば動作します。
[code]
sub BuildTree
{
my %tree;
for my $i(0..9){ @{$tree{$i}} = ();}
foreach( @score ){
$_ =~ /(\d{0,1})(\d)/;
if( $1 ne ”){
push @{$tree{$1}}, $2;
}else{
push @{$tree{0}}, $2;
}
}
for my $i(0..9){
print “$i | “;
print sort(@{$tree{$i}});
print “\n”;
}
}
BuildTree();
[/code]

最初、問題文中で「use strict」が宣言してあるのを無視してたため、Arrayリファレンスの初期化を忘れてて嵌ったのは内緒。つづけてネタっぽい解答も考えてみようかな。

って次に思いついた方が一般的っぽい解答なのは何故だろう……（汗）
こんなの。
[code]
my %tree;
for (0..9){@{$tree{$_}}=();}
foreach( @score ){
my $q = int($_ / 10);
push @{$tree{$q}}, $_ % 10;
}
foreach( sort keys %tree){
print $_, ” | “, sort(@{$tree{$_}}), “\n”;
}
[/code]

ネタの才能は無いなぁ。やっぱり。

ガンスリ連載開始以来、大王本誌の購読してたんですが先々月あたりからやめて単行本購読に切り替えました。付録のおしつけ感に耐えられないってのもあります……。

GUNSLINGER GIRL(3)は最寄りの本屋にて購入をしたんですが、単行本コーナーで４列程度の平積みになっててあからさまに「別格扱い」でした。２巻発売時と比べ、えらい変わり様です。
なにせ２巻は初回入荷分が３、４冊でしたので。しかし、アニメ化以後だからといってもこの辺り（私の住んでるところ。ド田舎）で視聴できた環境の人間は相当限られることは間違いなく、今回の変わり様には正直戸惑いましたねえ。あまりの変わりっぷりだったので。
時期的に、ゲーム同梱ＤＶＤ（ＣＭだとそう言ってる）を売るためのマーケティングの一環ぽいような気もしないでもないですが。（ぶっちゃけ正解のような気がするので、それはなんか楽しくないですね……）