Movable Type 4.2 パーフェクトガイド
荒木 勇次郎

時間を見ては目を通しているのですが、本当にすごいボリュームです。しかも、随所にコラムとして関連情報へのポインタが含まれていて、情報の密度も半端じゃないです。手に取った瞬間に、並大抵ではないエネルギーが費やされている一冊だと分かります。すばらしいです。
改めてyujiroさん、お疲れ様でした。

それでですね。なんと!パーフェクトガイド内で、当サイトで公開しているプラグインBuild Tracerが紹介されています。しかも、通常のプラグイン紹介とは別枠で、パーフェクトガイドのメインともいえるテンプレート解説の冒頭付近に一ページ強を割いて掲載されていました。見た瞬間変な汁が出ました。
あの超ニッチなプラグインを取り上げられるとは、これは、自分も頑張らなくちゃとやる気がたくさん出ました。ありがとうございました!

IndexContextプラグインもピックアップされてました。うぇーい。

で、ですね。なんか、単純に外でウェブに繋がるとか、iPodと電話が一緒になったとか、そういう個々の具体的な機能についてとは、まったく別の次元のワクワク感を、iPhoneを触るたんびに感じるんですよ。

だって不思議じゃないですか?
あの愛想の無い、ともすれば上下間違えてスリープボタン押せなかったりするのっぺらぼうなデザインのクセに、ひとたびロック解除すれば触る撫ぜる傾ける音が出る話す震える表示する移動する、と、あらゆる手段でのインターフェイスが提供されていて、およそコンピュータに出来そうな事ならいつ何時でも反応してくれる。
それなのに電源切れば、ほとんどただの板。
このギャップにスゲエワクワクするんです。

そのワクワク感の正体が今日分かりました。気づきました。
iPhoneって東京探偵団に出てきた「CJカード」を現実にしてしまったんだな、と。

東京探偵団ってのは「ギャラリーフェイク」や古くは「さすがの猿飛」「GU-GUガンモ」の作者の細野不二彦が書いていた、ホモの少年と守銭奴の少女とマゾの少年で構成される探偵事務所が超巨大財閥の金の力を後ろ盾にホモの中年が起こす事件を金の力で解決するという内容の傑作マンガです。
wikipediaによると連載は'85-'87年ですので、当時自分は小6くらいで読んでたんでしょうか。

そのマンガの中で、探偵団の一人が落とした探偵団専用のスペシャルクレジットカード「CJカード」を貧しい家出兄妹が拾う、という話があるのですが、そこで描かれるカードの機能がとにかく凄いんですよ。
クレジットカードとして勿論最強。何しろ日本に10枚と無い超スペシャルカード。限度額無限。取り出した瞬間即VIP待遇。
そして、ここが大事なのですが、一見ただのクレジットカードなのに、ちょっとカードの端を触って操作すると、音楽が聴ける、ファミコンが出来る、ショッピングも出来る、テレカにもなる、位置情報も確認できる、お父さんに会いたいとカードに話しかければ、居場所を音声で答えてくれる。なんだか分からないくらいハイテクな色々が詰め込まれた超高機能カード。
このエピソードの肝は、ただのカードなのに、家出兄妹の希望を次から次へと叶えていくという、そのファンタジーにあったと思います。そこで描かれていたものは、まさに「魔法のカード」でした。子供心に凄く憧れ、何度も読み返したことを今でも覚えています。

そして20年が過ぎ、iPhoneが今、手の中にあります。
ゲーム、音楽、電話。加速度センサー、GPS、そしてマルチタッチディスプレイ...。20年前のマンガに登場したファンタジー、子供だった当時の自分が憧れた魔法のほとんどが、この板状の小さいボディに実現されています。これは、ワクワクせざるを得ませんよね。

子供の頃のそんな記憶を思い出しながら、ぼーっと黒いiPhoneを眺めていると、これって本当「魔法のカード」と呼ぶにふさわしい代物だと思えてきてしまいます。そりゃカードと呼ぶには少々分厚くて大雑把ですが、少なくとも、電話の受話器から発展してきた携帯電話のデザインと比べて強いてどちらかといえば、間違いなくカードでしょう。

ぱっと見は何も出来なさそうなのに、ちょっと触るだけで万能的に要求に答えてくれるという感覚。
これは、10キーのついた受話器の末裔たちからは絶対に感じ取ることの出来ない、特別な快楽なんじゃないかな、と思います。

#!/usr/bin/perl
use strict;
sub which_is_heavy {
    my ($left, $right) = @_;

    #この辺は本来ならブラックボックス
    my ($left_mass, $right_mass);
    map { $left_mass += $_ } @$left;
    map { $right_mass += $_ } @$right;

    return $left_mass > $right_mass    ? 'left'
            : $left_mass < $right_mass ? 'right'
            :                            'balanced';
}
 
sub get_fake_from_three {
    #偽者が重いか軽いか分かってれば3つのコインから一発で偽者を割り出せるよ関数
    my ($fake, @coins) = @_;
    if ($coins[0] > $coins[1] ) {
        return $fake eq 'heavy' ? 0 : 1;
    }
    elsif ( $coins[0] < $coins[1] ) {
        return $fake eq 'heavy' ? 1 : 0;
    }
    else {
        return 2;
    }
}
 
sub get_fake {
    my @c = @_;
    my $first_result = which_is_heavy( [ @c[0..3] ] ,[ @c[4..7] ] );
    if ($first_result eq 'balanced' ) {
        #0-7は本物
        my $second_result = which_is_heavy( [@c[0..2]], [@c[8..10]] );
        if ($second_result eq 'balanced' ) {
            #11,12が偽者
            my $third_result = which_is_heavy( [ $c[0] ], [ $c[11] ]);
            return $third_result eq 'balanced' ? 12 : 11;
        }
        else {
            #8-10に偽者かつ重いか軽いかが判明
            my $fake = $second_result eq 'left' ? 'light' : 'heavy';
            return 8 + get_fake_from_three($fake, @c[8..10]);
        }
    }
    else {
        #8-12は本物
        my $second_result = which_is_heavy( [$c[0],$c[1],$c[2],$c[4],$c[5]],[@c[8..12]] );
        if ($second_result eq 'balanced' ) {
            my $third_result = which_is_heavy( [$c[3], $c[6]], [@c[8..9]] );
            if ( $third_result eq 'left') {
                return $first_result eq 'left' ? 3 : 6;
            }
            elsif ( $third_result eq 'right' ) {
                return $first_result eq 'left' ? 6 : 3;
            }
            else {
                return 7;
            }
        }
        else {
            my $fake = $second_result eq 'left' ? 'heavy' : 'light';
            if ( ( $fake eq 'heavy' && $first_result eq 'left' )
              || ( $fake ne 'heavy' && $first_result ne 'left' ) ) {
                return get_fake_from_three( $fake, @c[0..2] );
            }
            else {
                if ( $fake eq 'heavy' ) {
                    return $c[4] > $c[5] ? 4 : 5;
                }
                else {
                    return $c[4] > $c[5] ? 5 : 4;
                }
            }
        }
    }
}
 
print get_fake( 3,2,2,2,2,2,2,2,2,2,2,2,2 ) . " will be 0\n";
print get_fake( 2,3,2,2,2,2,2,2,2,2,2,2,2 ) . " will be 1\n";
print get_fake( 2,2,3,2,2,2,2,2,2,2,2,2,2 ) . " will be 2\n";
print get_fake( 2,2,2,3,2,2,2,2,2,2,2,2,2 ) . " will be 3\n";
print get_fake( 2,2,2,2,3,2,2,2,2,2,2,2,2 ) . " will be 4\n";
print get_fake( 2,2,2,2,2,3,2,2,2,2,2,2,2 ) . " will be 5\n";
print get_fake( 2,2,2,2,2,2,3,2,2,2,2,2,2 ) . " will be 6\n";
print get_fake( 2,2,2,2,2,2,2,3,2,2,2,2,2 ) . " will be 7\n";
print get_fake( 2,2,2,2,2,2,2,2,3,2,2,2,2 ) . " will be 8\n";
print get_fake( 2,2,2,2,2,2,2,2,2,3,2,2,2 ) . " will be 9\n";
print get_fake( 2,2,2,2,2,2,2,2,2,2,3,2,2 ) . " will be 10\n";
print get_fake( 2,2,2,2,2,2,2,2,2,2,2,3,2 ) . " will be 11\n";
print get_fake( 2,2,2,2,2,2,2,2,2,2,2,2,3 ) . " will be 12\n";
 
print get_fake( 1,2,2,2,2,2,2,2,2,2,2,2,2 ) . " will be 0\n";
print get_fake( 2,1,2,2,2,2,2,2,2,2,2,2,2 ) . " will be 1\n";
print get_fake( 2,2,1,2,2,2,2,2,2,2,2,2,2 ) . " will be 2\n";
print get_fake( 2,2,2,1,2,2,2,2,2,2,2,2,2 ) . " will be 3\n";
print get_fake( 2,2,2,2,1,2,2,2,2,2,2,2,2 ) . " will be 4\n";
print get_fake( 2,2,2,2,2,1,2,2,2,2,2,2,2 ) . " will be 5\n";
print get_fake( 2,2,2,2,2,2,1,2,2,2,2,2,2 ) . " will be 6\n";
print get_fake( 2,2,2,2,2,2,2,1,2,2,2,2,2 ) . " will be 7\n";
print get_fake( 2,2,2,2,2,2,2,2,1,2,2,2,2 ) . " will be 8\n";
print get_fake( 2,2,2,2,2,2,2,2,2,1,2,2,2 ) . " will be 9\n";
print get_fake( 2,2,2,2,2,2,2,2,2,2,1,2,2 ) . " will be 10\n";
print get_fake( 2,2,2,2,2,2,2,2,2,2,2,1,2 ) . " will be 11\n";
print get_fake( 2,2,2,2,2,2,2,2,2,2,2,2,1 ) . " will be 12\n";