2004-09-17

飛行機

生活

UA 885便は2つの連続したセグメントに同じ便名が付いているのだが、当初からそうではないかと思っていたものの確証がなくて、空港に行ってからようやく納得した次第。

SFOにはRed Carpet Clubが複数ある。さすがSFO。

なにしろ僕は小市民なので、飛行機の中では肘掛によって規定された空間外を侵食したりする意図は持たないわけなのだが、最近は太平洋を横断するたびにその辺をあまり気にしない人と隣り合わせになってばかりのような気もする。今回の隣人は体形的にもリラックスするとひじがおなかに当たって外側にはみ出してしまう感じのある人だったのだが、特に睡眠を取ったりするとこちらにひじが出てくるわけである。そうなると僕も自分のひじを使って無言のまま国境に防衛線を張ってしまうわけだが、寝ている人相手なのでなかなか難しい(小エロ?)

という具合に徐々に高まる国境紛争の緊張を感じていたら、隣人さんは「んあっ！もー」と呟いて体を入れ替えてまた眠りに落ちてしまった。どんな夢をみさせてあげることができたのだろうか。

2004-09-16

飛行機

生活

某所ではすでに日記に書かれたりしていますが、明日また飛行機に乗ります。もう。

2004-09-16

速度比較

Squeak

私はid:sumimさんではないのですが(当たり前だ)、id:khiさんのhttp://d.hatena.ne.jp/khi/20040916
を見て現実逃避的に。SqueakのWorkspace Programming版はこんな感じ? 他の言語でもtimeToRunに相当する標準メソッドくらいはありそうですが、とりあえず等価なコードになっています。

benchmark := [:n :c |
    ([n timesRepeat: [c value] ] timeToRun) * 1000.0 / n.
].

fact := [:n | (2 to: n) inject: 1 into: [:s :t | s * t] ].

'Squeak: ', (benchmark value: 10000 value: [fact value: 10]) printString, ' MicroSeconds per call'.

これだと、Pentium M 900MHzで

 'Squeak: 9.8 MicroSeconds per call'

くらい。ちなみに、fact2とか言って

fact2 := [:n | n factorial].

というものを定義してみると、

 'Squeak: 3.9 MicroSeconds per call'

くらいですね。khiさんの環境がどのようなものなのかわかりませんが。当然ながらSqueakの方がPythonよりは速くてそしてコードも短いわけではあります。J5があれば3倍くらいは早くなってもよさそうですね。

LargeIntegerの速度を測ったりする人が出てくることに期待。

ついでにVisualWorks 7.2では、factのほうで

'VisualWorks 7.2: 1.49 MicroSeconds per call'

fact2だと

'VisualWorks 7.2: 0.28 MicroSeconds per call'

でした。思ったより速い。さすがElliot。

2004-09-15

日帰り出張

仕事

Bay Areaにある某"80 billion"企業に日帰り出張。少し賢くなったかも(いや、気のせいかも)。

San Jose空港からタクシーに乗ったのだが、タクシーの運ちゃんが「日本人なのか」と聞くのでそうだ、と答えると、「あんたもあの手の日本人科学者なのか」という謎の質問をされてしまった。計算機科学だけどいちおうそのつもりだよ、と答えたら、"I knew it!"とか言われてしまったり。なんで?

2004-09-14

毛玉

Squeak

大改良中。

いろいろなシステムをいじってきたときになんども理解しては何度も忘れていることだが、あるシステムの大改良を目指すときにも、インクリメンタルな変更の積み重ねになるようにすることが重要である。システムの一部があるべきすがたになって、残りはまだ古いままという状況でも、なんとなくそれっぽく動いてテストができるようにしておく、という。

特に野望が高いときは、AをA'に書き換えて、BをB'に書き換えて、CをC'に書き換えて、全部がそろわないとテストできない、というか全部がそろうと美しい世界が待っているからそれまでテストしたくない、という心理状態に陥ることもある。が、こうなると結局A'、B'、C'が揃う前に挫折するのが落ちである。

というわけで、自戒を込めて日記に書いておこう。