西尾泰和のブログ

インターネットって高いねぇ。

価格ドットコムで一番安かったTEPCO光にしてみた。 インターネットって工事とかが必要なのかー。

僕は、金属工作を平岡氏の本を読んで学んだ。三十代のときである。この上なく緻密で丁寧で美しい図面と適切な説明が平岡氏の持ち味であるが、初めてこれを読んだとき、工夫さえすれば、時間をかけさえすれば、どんなものでも自分の手で作れるのだ、ということに気づかされた。

　平岡氏の本に従って、工具を１つずつ揃え、何日もかけて車輪を作った。これが庭園鉄道の夢の始まりだった。その後、走らせる土地が必要だと考えて、自分の貯金や収入では、一生できないかもしれない、と計算して、思い切ってバイトをすることにした。それが小説を書いた動機である。したがって、作家になったのは、平岡氏のおかげかもしれない。

意外な転職のきっかけ。

今日は4時間くらいかけてだいぶゴミを捨てた。 トイレにため込んでいたトイレットペーパーの芯とか。 だって何かに使えそうだと思ったんだもん。 あとティッシュの箱とか。だってちょうどいいサイズなんだもん(何に？)

でも、僕の荷物は半分以上が本。重量比だと90%以上が本。 この段ボールに詰めると30キロを超えるよなぁ…。

By 西尾泰和 at 2007-03-31 23:29:12 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

>>> dic = {}
(空欄)
>>> dic
{[1]: 1, [2]: 2, [3]: 3}
>>> for k in dic.keys():
	k.append(0)

	
>>> dic
{[1, 0]: 1, [2, 0]: 2, [3, 0]: 3}

答えは2通り以上あるけど、、どういうのとどういうの、っていうとヒントになるから言わない。

ファインマンが 「小学校の教科書で『電車はなぜ動くのでしょう？それはエネルギーが動かすからです』なんて説明はまずくないか？それを習った生徒が『エネルギー』という言葉なしで習ったことを説明できるか？できないのは、結局言葉の定義以外を覚えただけだからじゃないのか？」というようなことを言っていた。 で、(im)mutableという言葉を使わずになぜPythonの辞書にはリストが入れられないのかを説明できるだろうか？

初心者向けの解説で「リストはミュータブル(変更できる)ので辞書には入れられません」なんて説明をするのはやめたほうがいいのではないだろうか。

答えは30cm下で書く。

>>> dic = {}
>>> class Foo(object):
	def __init__(self, vs):
		self.value = vs
	def __repr__(self):
		return repr(self.value)
	def append(self, v):
		self.value.append(v)

		
>>> dic[Foo([1])] = 1
>>> dic
{[1]: 1}
>>> class Bar(list):
	def __hash__(self):
		return id(self)

	
>>> dic[Bar([2])] = 2
>>> dic
{[1]: 1, [2]: 2}
>>> class Baz(list):
	def __hash__(self):
		return sum(self)

	
>>> dic[Baz([3])] = 3
>>> dic
{[1]: 1, [2]: 2, [3]: 3}
>>> for k in dic.keys():
	k.append(0)

	
>>> dic
{[1, 0]: 1, [2, 0]: 2, [3, 0]: 3}

id(オブジェクトの同一性)を使って区別をするFooとBarの場合、下のような現象が起きる。

>>> dic2 = {}
>>> dic2[Bar([])] = 1
>>> dic2[Bar([])] = 2
>>> dic2[Bar([1])] = 3
>>> dic2[Bar([1])] = 4
>>> dic2
{[]: 1, []: 2, [1]: 4, [1]: 3}

>>> dic = {}
>>> dic[Bar([])] = 1
>>> dic
{[]: 1}
>>> k = Bar([])
>>> k
[]
>>> print dic[k]

Traceback (most recent call last):
  File "", line 1, in -toplevel-
    print dic[k]
KeyError: [] # 1つ目の[]と2つ目の[]は別物なのでキーが見つからない

中身を見て区別をする(同じ中身のものは同じと見なす)ようにすると、 この現象は起こらなくなる。

>>> dic = {}
>>> dic[Baz([1, 2])] = 1
>>> dic
{[1, 2]: 1}
>>> k = Baz([1, 2])
>>> k
[1, 2]
>>> print dic[k]
1

>>> k = dic.keys()[0]
>>> k
[1, 2]
>>> k.append(3)
>>> k
[1, 2, 3]
>>> dic
{[1, 2, 3]: 1}
>>> print dic[Baz([1, 2, 3])]

Traceback (most recent call last):
  File "", line 1, in -toplevel-
    print dic[Baz([1, 2, 3])]
KeyError: [1, 2, 3]

By 西尾泰和 at 2007-03-30 18:22:53 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (3) | トラックバック (0)

明日転入届を出す。 免許の住所更新はどうしよう。

サンスベリア買おうかなぁ。 水やらないでいいし。

帯には「なぜ速読より多読なのか」というメッセージが書かれているけど、 フォトリーディングの「あなたもいままでの10倍速く本が読める」と言っていることはほぼ同じ。 著者は「1冊の本だけに書かれていることはその著者の意見かも知れないが、 複数の本に書いてあればそれは重要なポイントだろう」(だから同じトピックで複数の本を読め) と述べ、そういう読み方に「カテゴリー集中法」という名前をつけているけども、 これってフォトリーディングの「シントピックリーディング」と同じ。

結局のところ高速に本を読むためには「全部を読もうとせずに、重要なところだけ読む」 ということにつきるわけだ。そこまでは「10倍速く～」と同じ。 違うところは「捨てる技術」(笑)

今まで、本を買って読んでも、それで終わっていたわけだけど、 筆者のように年に何百冊も読もうとすると収納が追いつかない。 一度読んだ本を取っておいてまた読もうと思うからいけないのであって、 エッセンスを抽出した本は捨ててしまえ、という話。 逆に「エッセンスを抽出して捨てる」というつもりになれば 線を引いたり角を折ったりするのも抵抗がなくなる。

この本を読んで、一番感銘を受けたのは 「出がらしのお茶の葉と同じ」という言葉。 本ってものはそこから価値を引き出すために買うわけだ。 ざっと読んで80%の価値を引き出しても、 「じっくり読むと見つかるかも知れない残りの20%」が気になって捨てられないし、 いつか精読しようと思ってしまう。 そうじゃない、と。 80%取った後の本は出がらしの茶葉だと。 お湯を入れて時間をかければ薄いおいしくないお茶ができるかも知れないけど、 そんなのは捨てて新しい茶葉でおいしいお茶を飲んだほうがいい、と。 これが目から鱗だった。

というわけで読み終わったから巻末の「わたしのベストビジネス書」だけ破り取って 本はゴミ箱にほりこんだ。

安心して捨てるためには、 読んだ本の中の重要だったと思う部分をきちんとメモすべき。 「10倍～」では確かマインドマップを使うという話だったけど、 これは僕にはなじまなかったので結局やっていなかった。 しかし「読書後にメモを作る」という所は非常に重要。 ここを割愛したのは間違いだった。 この本ではパソコンを使ってメモを取っている。 メモの取り方は自分がやりやすいようにやっていいと書かれている。 でもパソコンを使ってメモを取れば、長い文章も辛くないし、 字が見やすいし、持ち歩いて読み返している間にぼろぼろになっても印刷し直すだけ。 検索もできるよね。 僕はパソコンでメモを取って、超整理手帳サイズ(A7を縦に2つ並べたサイズ)に印刷することにした。

フォトリーディングと何も矛盾しないよねぇ。

1時間で読むつもりだったのに、線を引くところがたくさんありすぎて8割しか読めなかった。 こういう「ノウハウぎっしり系」の本は線を引くところが多くなる傾向があるね。

途中ファイナンスにからめて書かれているところが、一部目から鱗でもあり、 一部「それは無理矢理だな」って所もあり。

とりあえずGoogleCalendar使おうかな。今まで 「管理するほどもスケジュールない。手帳で十分」と思っていたけど、 「15分程度の短いタスクもいつやるか決めて書き込んでしまう」 っての。 やりたいことは山のようにたまっているけど、手をつけないまま塩漬けになっているので、 時間を決めて着手してみるべき。着手してみると「すすめると面白そう」とか 「これはダメそう」とかわかるもんだしね。

著者は松竹のプロデューサーなのか…。実例にウノウとかGoogleとか出せるのがすごい。 知識の幅が広い。

By 西尾泰和 at 2007-03-29 23:06:08 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (1) | トラックバック (0)

えええー。 このタイミングで浴室の電球が切れた…。 呪い？

新居の写真

新居 posted by (C)にしお

キッチンが広い。レオパレスと大違い。

キッチン posted by (C)にしお

実家で余っていたので持ってきたカーテンは予想通り長さが足りない。

足りない… posted by (C)にしお

ネットにつながるかどうか試そうと思ってLANケーブルを持ってきたのだけど、 このコンセントは電話線じゃないか！(当たり前)

インターネットってどこで売ってるんだろう。

子供の小学校入学時に子供向け携帯を無償配布し、 基本料金は無料にするそうな。 そして年5日まで運動会などでの休暇を取得できるんだそうな。

こういう話を聞くと、産休の取れない会社が学生に 嫌われるような時代が来るんだろうなぁという気がする。

とりあえずオーブンを空焼きする。

ちゃんと130度の温度が出せるオーブン。 これで樹脂粘土いじりができる。

お腹が空いたので徒歩でイトーヨーカドーに行って、 冷凍食品半額セールなので喜んでたくさん買ってきた。 徒歩で冷凍食品が溶けない距離ってすばらしい。

食器がない。 唯一のお皿とティースプーンでピラフを食べる。

まだかなー。

来た。

LYCKSELE posted by (C)にしお

LYCKSELE Manual posted by (C)にしお

LYCKSELE posted by (C)にしお

組み立てた。

shinshuku posted by (C)にしお

日記を更新したり撮影した写真をアップしたりウダーでスーダラ節を弾いたりしたいので、 帰らないことにしました。今日はここで原稿書きに専念。

P1060982 posted by (C)にしお

しまった。裏表逆だ。 まぁ、実害ないからいいか。

P1060984 posted by (C)にしお

行きは迷ったので長く感じたけど、 改めて京成曳舟の駅まで行ってみたら3～4分だった。 そしてその道沿いにイトーヨーカドー、コンビニ、 郵便局がある。超便利じゃないか。

P1060985 posted by (C)にしお

やばい。この軟禁状態やばい。原稿を書く以外に何もできない。 唯一の娯楽がこうやって日記を書くこと。 一時的に日記の編集を禁止できないかなぁ。

By 西尾泰和 at 2007-03-29 19:24:45 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (1) | トラックバック (0)

記載事項変更(住所・本籍又は氏名の変更の方)　：警視庁。 おっと、免許の変更には写真が必要か！ デジカメで撮ってヨドバシとかの印刷機で印刷したやつでもいいのかな？

転入・転出の諸手続き。 年金手帳は転入手続きをするときにも持って行く。

電気の使用開始の手続き書類と、水道の使用開始の手続き書類はポストに入っていたので 書いて出した。 ガスはどうしたらいいんだろう。

東京ガスのサイトを見る。 東京ガス：ガスご利用ガイド/お引っ越しの際の手続き。 ああ、前日の手続きはネットではできない。昨日やっておくべきだった。

電話した。 問題なし。 ガスも明日開通することになった。 明日はIKEAからベッドが届いて、 ヨドバシから家電が届いて、照明と洗濯機を取り付けてもらえて、 お湯も出るようになる。 これでとりあえずいつでも住むことはできる。 後は本とか本とか本を4月20日までに運び出すだけ。

マツモトキヨシは錦糸町にある。 家から錦糸町までは、2キロくらい。 今の家から船橋までくらいの距離。

明日ガスとIKEAとヨドバシが早めに終わったら区役所に行こう。 終わらなかったら次の日でいいや。

明日は朝起きて、洗濯して干して、 郵送しないといけない書類を郵送して、 新居へ。

By 西尾泰和 at 2007-03-27 23:54:56 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

お酒を飲んだときにフロー状態になることも多いように思います。 そもそもプログラミングに論理的な思考が必須だったら、 お酒を飲んでコーディングするのは不可能に近いわけですが、 実際はコーディング自体は酔っていても可能です(むしろ生産性が高い)

なお、何人かの、作業効率が良いコンピュータ関係のことをやっている人と話したところ、大体は上記のようなことを (表現は異なるが) 普段から実践しており、それによって、平均的なレベルと比較して遥かに高い能力で作業をしているようである。

そもそも論理的な思考はルールの数の少ないルールベースの処理なのだから、 脳内バイナリにコンパイルするのも比較的簡単なはず。 プログラミングに必要なある程度の論理的思考は、慣れれば 意識せずに実行できるようになるわけです。 車の運転になれると考えることが減ってしゃべりながら運転できるようになるようなもの。

問題は「慣れて頭を使わずに実行できるようになった」という状況が かならずしも「よい状況」とは限らないという所じゃないでしょうか。 例えばデータ打ち込みのような 単純な知的労働は慣れてくると頭を使わずにできるようになる というのは(プログラミングもそうだということがイメージできない人でも) イメージできると思います。 でも、その「頭を使わない作業」を長期間続けるのは 脳に対してよくないと思います。 なんせ頭を使っていないのですから。 頭を使わない作業を長時間やっていると、頭を使う能力は下がってしまうと思います。

データ入力の仕事に慣れたおかげで、頭を使わずに高速にデータ入力ができるようになった、 とそれはまぁ、それがお仕事なんだから悪いことではないのですけどもね。 僕としてはそういう「頭を使わない仕事」に従事するのは嫌いで、 何とかしてその作業を機械化できないか、とか、 慣れてない新入りバイト君の生産性を上げるためにはどうすればいいか、とか 頭を使う仕事がしたいわけです。

プログラミングの例で言えば、 10000行のコードを書く速度を上げるのではなくて、 その10000行のコードを生成するプログラムを設計することで 1000行のコードで同等のプログラムを作れるようにするとかね。 現在の自分に注目していると、頭を使って「1000行で記述できるようにするシステム」を 作るよりも10000行を何も考えずに作るほうが速いかも知れないけども、 それは将来の自分や他の人を視点に入れると逆に遅いかも知れません。

登君が「頭を使わない作業」に従事しているというのは、 世界全体にとっては損失なのではないかと…。

そうか、手帳を忘れたから 自分の住所もわからない。

書類書き。 Wordは嫌い。

data P2 = P2{x::Int, y::Int}
data P3 = P3{x::Int, y::Int, z::Int}

By 西尾泰和 at 2007-03-26 12:27:52 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

ほしのあき - Google イメージ検索。 はしのえみ - Google イメージ検索。 あやや - Google イメージ検索。

20021226hayaya2.jpg (JPEG 画像, 405x304 px) hosinotop.jpg (JPEG 画像, 350x250 px) 2000007556.jpg (JPEG 画像, 200x200 px) 54e65681f876e30bdba9.jpg (JPEG 画像, 400x375 px) 。 ううむ。

安藤美姫と上戸彩の区別には「フィギュアをしていれば安藤美姫、してなければたぶん上戸彩」 という手が使えたのだけど。 とりあえずGoogleイメージを眺めた感じだと 「歌を歌っていれば松浦亜弥で、 胸の谷間を強調していたらほしのあき、 ちょっと年上な感じがしたらはしのえみ」かな。

はしのえみは33歳。ほしのあきは30歳、松浦亜弥は20歳？！ ほしのあきと松浦亜弥は同じくらいの年かと思ってた。 ほしのあきが若く見せるのがうまいんだろうな。

そして僕はもしかして髪型で人を識別しているのか？

滑り台があって、高い位置のＡ点から、低い位置のＢ点まで、滑っていく。このとき、ＡＢ間を直線で結んだ滑り台と、やや、下に撓（たわ）ませた曲線で結んだ滑り台とでは、どちらが、滑り降りる時間が長くかかるだろう？

「位置エネルギーを運動エネルギーに変えた方が速く進むので、 地面に近い位置を走るコースのほうが速い」

でも、摩擦は考えないけれど抗力は考えるので、 下にたわんだコース(傾きの変化が正のコース)は、 コースが曲がるせいで余計に抗力を受けてエネルギーを失うように思う。 だから「位置エネルギーを運動エネルギーに変えたほうが～」という説明は片手落ち。 極端な場合、スタート直後に真下に落ちてその後平らなコースでは、 確かに位置エネルギーが最速で運動エネルギーに変換されて、加速はぴかいちなんだけど、 90度のカーブに衝突して止まってしまう。 抗力のせいですべての運動エネルギーが失われるわけだ。

本当の最速コースはどういう形なんだろうか。

昔何かで読んだ気がしたので調べてみた。 Brachistochrone Problem -- from Wolfram MathWorld

In fact, the solution, which is a segment of a cycloid, was found by Leibniz, L'Hospital, Newton, and the two Bernoullis.

By 西尾泰和 at 2007-03-25 01:22:43 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

使い方。

>>> from Haskell import Haskell
>>> h = Haskell("""
func = reverse
func' x = map (+ x) 
value = 42
""")
>>> h.func
<Haskell.HaskellFunc object at 0x0153AC90>
>>> range(5)
[0, 1, 2, 3, 4]
>>> h.func(range(5))
[4, 3, 2, 1, 0]
>>> type(_)
<type 'list'>
>>> func2 = h.get("func'")
>>> func2(1, range(5))
[1, 2, 3, 4, 5]
>>> h.value
<Haskell.HaskellFunc object at 0x0153AD90>
>>> h.value()
42
>>> type(_)
<type 'int'>

仕組み。

PythonからHaskellを呼ぶためには、

• 1:PythonのオブジェクトをなんらかのHaskellが扱える形に変換
• 2:変換したモノを何らかの方法でHaskellに渡す
• 3:Haskellが渡されたモノをHaskellのオブジェクトに変換
• 4:Haskellが処理
• 5:処理の結果のHaskellオブジェクトをPythonが扱える形に変換
• 6:変換したモノを何らかの方法でPythonに渡す
• 7:Pythonが渡されたモノをPythonのオブジェクトに変換

このバージョン0.01では

• 1:Pythonのオブジェクトをstrを使って文字列に変換
• 2:変換した文字列をソースコードに埋め込んでHaskellを実行
• 3:Haskellパーサが文字列をパースしてHaskellのオブジェクトを作る
• 4:Haskellが処理
• 5:処理の結果のHaskellオブジェクトをshowで文字列に変換する
• 6:文字列を標準出標準出力に力に吐いて、Pythonがそれを拾う
• 7:Pythonが文字列をevalしてPythonのオブジェクトに変換

• 5番の変換にshowを使っているのでShowのインスタンスでないとPython側に渡せない。 また、Showのインスタンスであって、Python側に渡せたとしても7番の変換でこけるケースがある。
  • 例えば関数はShowのインスタンスでないので渡せない
  • 例えば「Just 1」はShowのインスタンスなので渡せるけどevalできない
  • 解決法：
    • たとえばPythonizableというクラスを作って、Intなどをそのインスタンスにする。
    • toPython :: (Pythonizable a) => a -> String を作る
• HaskellでPythonの関数をpureな関数として扱えない
  • Pythonと通信するためにIOモナドになってしまうから
  • Haskellのコードで記述するのではなく、なにか拡張を作ってHaskell処理系をだましてやる必要がある

'''
  Haskell In Python

USAGE:
code = """
func = reverse
func' x = map (+ x) 
value = 42
"""

h = Haskell(code)

print h.func(range(5))
print h.get("func'")(1, range(5))
print h.value()
'''
__all__ = ["Haskell"]
class Haskell(object):
    def __init__(self, code):
        self.code = code
        
    def __getattr__(self, name):
        return HaskellFunc(self.code, name)
    def get(self, name):
        return HaskellFunc(self.code, name)


class HaskellFunc(object):
    def __init__(self, code, name):
        self.code = code
        self.name = name
    def __call__(self, *args):
        argsStr = " ".join(str(arg) for arg in args)
        f = file("tmp.hs", "w")
        print >>f, self.code
        print >>f, "main = print $ %s %s" % (self.name, argsStr)
        f.close()
        from popen2 import popen3
        (o, i, e) = popen3("runghc tmp.hs")
        err = e.read()
        if err:
            raise RuntimeError(err)
        return haskellStr2pythonObj(o.read())


def haskellStr2pythonObj(s):
    return eval(s)

By 西尾泰和 at 2007-03-22 22:21:38 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (1) | トラックバック (0)

5時間あればBefungeインタプリタとBefungeで書かれたKEMURIインタプリタを作れると思うけど、 3倍で見積もった上で、今15時間かけて作るべきかと考えると…。

…。

「やりたいことはいくらでも沸いてくるけども、やる時間は有限なので 何かを捨てなきゃいけない。」

でも「精神衛生を保つために息抜きが必要だと割り切って、 遊ぶときにはしっかり遊ぶ」

ううむ。

とりあえず昼間から遊ぶのはダメだと思う。 しっかり働いてから遊ぼう。

でも今日遊ぶならウダーの練習がしたいなー。

というわけでBefungeはなし。

v @_       v
>0"!dlroW"v
v  :#     <
>" ,olleH" v
   ^       <

v @_^      
>0"!dlroW"v
v  :#     <
>" ,olleH"v
   ^<     <

v      
>0"!dlroW"v
v  :#     <
>" ,olleH"v
 ,:!#@_   >

0"!dlroW"v
v    " " <
>",olleH"v
 ,:!#@_  >

0"!dlro"v
v ", W" <
>"olleH"v
 ,:!#@_ >

3-0 done 3-1 done 3-2 done

安西先生、Haskellがしたいです…

Jython本なので当然 Java+Pythonの話だけをしているわけだけど、 もちろんJava+RubyでもJava+JavaScriptでもいいことは知っているわけで。 なんかもう、Jython本を書き終わったらJavaとPythonをしばらく封印して、 FlashとActionScriptでGRINEdit的なものを作ってみたいような。

自分の性格がよくわかった。自分は一つのテーマを長時間ずっとやるのは苦手だ。 HaskellとかActionScriptとかBefungeとかしたいぞーーーー。

西尾泰和のブログ: Haskell In Python ver. 0.01

いちおう期待通りに動いている。 イメージだけよりも、やっぱり具体的なモノがあった方が色々わかる。 0.01ではPythonの関数をHaskellから呼ぶことはできないけど、 モナドとしてなら実現は難しくない。Pythonで書いた関数を純粋な関数として扱うためには もうちょっと僕がHaskellの中身を理解していないと作れない。

でもまあ40分で書いた31行のコードなので、それなりなことしかしていません。 だからver 0.01。

PyStringというクラスを導入せずにStringで押し切ることは不可能なのだろうか？ 押し切るとどういう不都合が起きるのだろうか？ 今の実装はPyString extends PyObjectだけど、 PyString extends String implements IPyObjectじゃダメなんだろうか、

でも、まぁ許容できる範囲の違いかな、と思う。 もともとまったく色の付いていないのでも許容していたし。

西尾泰和のブログ: Haskell In Python ver. 0.01 のように、「コードのように見える文字列」がある場合は、着色前よりだいぶ見やすくなるね。

code = [
  "0\"!dlro\"v", 
  "v \", W\" <", 
  ">\"olleH\"v", 
  " ,:!#@_ >"]

data Situation = Situation {
  code::[String], pos::Pos, dir::Dir, textMode::Bool, skipMode::Bool}

data Foo = Foo{x :: Int}

main = print $ x $ (Foo -1)

test.hs:3:20:
    Couldn't match expected type `Foo'
           against inferred type `Int -> Foo'
    In the second argument of `($)', namely `(Foo - 1)'
    In the second argument of `($)', namely `x $ (Foo - 1)'
    In the expression: print $ (x $ (Foo - 1))

本とかを持って帰るために来たのに、手提げ袋を忘れた。

火曜日にもまた来ることになったし、その時でいいかな。

ふむふむ。FlashもJavaScriptでHTMLをいじる時みたいなツリー構造でいじれるのか。

小さくて更新頻度の高い画像と、 大きくて解像度の高い更新頻度の低い画像とが表示されている。 大きい側でスクリーンを拡大して表示するらしい。 これはなかなかよさそう。

Macromedia - Flash TechNote : fl0277 - ローカル Shared Object とは。 これを使えばローカルにいろいろな値を保存しておくこともできる。

akihiro kamijo: E4X。 ECMAScript for XML。 ドット接続で要素名がつなげられるし、ハッシュっぽいアクセスの仕方もできる。

わーお、「..」ってなんだー。 指定したのの直下に限らず、ってことだろうか。あてかん。

腰が痛くなってきた。

「Firebugがあればどんな複雑なCSSだってなんとかなる。」byはまちちゃん

ABC (ActionScript Byte Code)　→ MIR → x86

Shibuya.jsはプレゼンツールを自作してくる必要がある →手書きプレゼン(へた字)

「fcwrapを使え」

あまりの面白さに吹き出してしまった。 みんな帰った後でよかったｗ

haXe

alertがヒューマンリソースを食いつぶす。

document.cookieは共有されるので…おおおお。

Radium Software

そうも行かない。 barが1カ所でしか使われないのならくっつけてしまうのもアリだけど 下のようなケースではどうしたらいいんだ。

(doCommandの定義がたくさん　略)
calc2 w f = let (u:v:rest) = stack w in
           w{stack = (f u v):rest}

doCommand '+' = calc2 (+)
doCommand '-' = calc2 (-)
doCommand '*' = calc2 (*)
doCommand '/' = calc2 (/)
doCommand '%' = calc2 mod
doCommand '`' = calc2 $ \x y -> if x > y then 1 else 0

main = return startWorld >>= dump >>= step >>= dump

X"!dlro"v
v ", W" <
>"olleH"v
 ,:!#@_ >
0 []

0X!dlro"v
v ", W" <
>"olleH"v
 ,:!#@_ >
" [0]

テキストモードにはいるのは実装していたけど抜けるのを実装していなかった。

完成。

ああっ、 befungeにXOR命令はないじゃん。 加減乗除とかでXORを実装しないといけないのか。 コードの一部を書き込み用のスペースにして 自力で10進数から2進数に変換したりしないといけないのかな。

とりあえず5時間で完成するコースではなく、 15時間かかってしまうコースであることがはっきりしたので、 befungeでKEMURIを作るのは無期限で延期。

By 西尾泰和 at 2007-03-22 14:30:37 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

ウノウラボ Unoh Labs: 2006年度上期未踏ユース成果報告会に参加してきました

追記。全員分書いたのだけど、だいぶ削りました。

さらに追記。 やっぱり、別にそこまでして公開することもないので外部へのリンク以外公開しないことにしました。

BCNランキング :: BCN ITジュニア賞 :: ＜ITジュニアの群像　IPA未踏ユースへの挑戦＞第36回　IPA未踏ユースへの挑戦

TT's Origami Page

By 西尾泰和 at 2007-03-22 13:40:02 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

どうしようかな。

気を抜くと悩みの泥沼に片足をつっこんで、 原稿を書かずに「どう書くべきか」と自問し続けてしまう。 プログラミングにたとえるならば、 コードを書かずにどう書くべきかを悩んでいる状態。 どう書くべきかを考えることは悪くはないのだけど、 時間をかけてもそれが進まないということは、 足りていないのは時間ではなくて知識だ。 まずは実際にコーディングをして、問題に対する知識を増やすべき。

というわけでプロトタイピング。 とりあえず動くモノを作る。 あっちゃこっちゃ書きかけの状態は、 コンパイルエラーだらけの状態。 一度に全部作ろうとしない。 1～3章だけまずコンパイルエラーがなくなるようにする。

コンパイルエラーがなくなったら、実行してみて挙動を観察する。 つまり、文章としての体裁が整ったら、読んでみる。

プロトタイプのコードは、 捨てることを惜しんではいけない。

まずは3章のコンパイルエラーをとる。

淡々と作業せよ。

ゲーム脳とはゲームに時間を割きすぎることで、 「ゲーム以外の作業によって鍛えられる能力」が鍛えられていない状態だとすれば、 僕は「プログラミング脳」に違いない。

プログラミングの場合コンパイルエラーが懇切丁寧に一覧表示されるので、 上から順番につぶしていくだけでいい。 タスクの優先順位を考えたりしなくていい。 タスクに依存関係がある場合もあるけども、 必ず根があるので一番上の問題を深さ優先で探索して解決すればいい。

これに慣れてしまったせいで、 並列実行すべき複数のタスクがあると混乱する。 原稿が完成するまで深さ優先で作業をしたいんだけど、 それをやると何かが犠牲になる。引っ越しが間に合わないとか。

とりあえず明日未踏ユースのブースト会議があることは きちんと理解しているのでご安心を＞関係者のみなさん

「彼女ができません、どうしたらいいですか」 「NullPointerExceptionがあちこちで起きています、 設計がそもそも間違っているかも知れません」 「ええー(涙)」 という会話が街角の占いとかでされるようになる。

「『彼氏』モジュールを変えたら、とたんにあちこちでClassCastExceptionが…」 とか。

本に載せるソースコードなどをどういう名前にしたらいいか。 これは単純にソフトウェアを作るときとはまたひと味違う。

Pythonにはパッケージ宣言がないので、 同じ名前のファイルがあるとどこのファイルかややこしい。 コメントで宣言すべき。 コメントでどのJavaファイルから呼び出されるスクリプトかとか書いた。

(global-set-key "\C-v" 'yank) AmetMultiを使うのでMeadowのキーバインドを変更。 ソースコードをコピーして「ぎょ」と入力してAmet変換すると、 行番号付きで挿入される。

最初から最後までみっちりやるのは疲れる。 まずあっさりバージョンで全体像をつかんでから、 時間と興味のあるときにみっちりバージョン。

あっさりバージョンをどんどん削って、 みっちりバージョンをどんどん上塗り。

By 西尾泰和 at 2007-03-19 13:33:18 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

>>> def Maybe(typ):
	class Foo(object):
		@classmethod
		def return_(_, x):
			return Just(x)
		@classmethod
		def bind(_, m, f):
			if isinstance(m, Nothing):
				return Nothing()
			elif isinstance(m, Just):
				return f(m.value)
	class Just(object):
		def __init__(self, x):
			assert isinstance(x, typ)
			self.value = x
	class Nothing(object):
		pass
	Foo.__name__ = "Maybe_%s" % typ.__name__
	return Foo

>>> Maybe(int)
<class __main__.Maybe_int at 0x00D750F0>

>>> MaybeInt = _
>>> MaybeInt.return_(1)
<__main__.Just object at 0x00D57F70>

適当な関数を作ってbindしてみましょう。

>>> def inc(x): #:: int -> Maybe int
	return MaybeInt.return_(x + 1)

>>> MaybeInt.bind(_, inc)
<__main__.Just object at 0x00D57A90>
>>> _.value
2

でも、これじゃIOモナドには進めません。 なぜかというと、x + 1の計算がbind時に行われているから。 ここの評価を遅延させる必要があります。

>>> class Lazy:
	def __init__(self, expr):
		self.expr = expr
		self.value = None
	def force(self):
		if self.value == None:
			print self.expr, "を評価します"
			self.value = self.expr.force()
		return self.value
	
>>> class Literal:
	def __init__(self, value):
		self.value = value
	def force(self):
		return self.value

>>> class LazyAdd(object):
	def __init__(self, a, b):
		self.a = a
		self.b = b
		self.value = None
	def force(self):
		if self.value == None:
			self.value = self.a.force() + self.b.force()
		return self.value

>>> def inc(x): #:: int -> Maybe int
	return MaybeInt.return_(LazyAdd(x, Literal(1)))

ああ、でも本当は 「評価前」「評価後」という2状態じゃないんだなぁ。 パターンマッチの書かれ方によって、 どこまで評価するかが決まるのか…。

IOで「入力用モナドと出力用モナドをつなぐだけでwhileも書いていないのに ループしてくれる」 というような説明があるけども、 それは入出力用のモナドの中の実装が見えていないから魔法みたいに見えるだけ。

>>> def printStr(x):
	while True:
		v = x.force()
		if v == "[END]":
			break
		print v

		
>>> def inputStr():
	class LazyInput:
		def force(_):
			return raw_input()
	return LazyInput()

>>> printStr(inputStr())
111
111
222
222
[END]

By 西尾泰和 at 2007-03-18 12:07:52 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

-- main = putStr $ unlines $map show [1..5]

main = join (map print [1..5])

IO()だから()を捨てても問題がないわけだな、とか。 元からモナドだからreturnしなくていいんだな、とか。 >>=はモナドとモナドを直接つなぐことはできないんだな、とか。 つなぎ目の形を合わせるために間にラムダを挟むんだなぁ、とか。

解答。

join :: (Monad m) => [m a] -> m a
join [x] = x
join (x:xs) = x >>= (\a -> (join xs))

ようするに、どこでも節操なくIOできるPythonとかと違って、 Haskellは最終的にmain::IO()がIOするので、 IOするモナドをつなぎ合わせて大きなモナドにしてmainに入れてやるしかない。

「モナド」「モナド」と言葉が一人歩きしているけど、そのモナドって どういうたぐいのものなのか。 モナドというデータ型なのか、モナドという制御構造なのか、 モナドというデザインパターンなのか。

MonadはEqやOrdと同じたぐいの「型クラス」で、Javaにたとえるならインターフェイス。 JavaでRunnableをimplementsしないとスレッドで実行できないのと同じで、 HaskellではMonadをinstanceしないとIOできない。

「Monadのインスタンスはbindやreturnをモナド則に従って実装せねばならない」 ということが大げさに感じられるけども、 Eqのインスタンスだって==をいろんな法則に従うように実装しないといけない。 まず「x == x」が常にTrue。次に「x == yがTrueの時、y == xは常にTrue」。 最後に「x == yがTrueで、y == zもTrueの時、x == zは常にTrue」。

Eqが満たすべき法則を書いてみると、当たり前すぎて何を今更という感じがする。 でもこの法則を満たさない==を実装したら、いろいろなアルゴリズムが予定外の挙動をするだろう。 モナドがモナド則を満たさないといけないのも同じこと。 モナド則を満たしていると仮定して他のアルゴリズムが実装されているので、 そのルールを守りましょう、ということ。

まず靴を履いて、外に出て、ゆっくりでも進まなきゃ。 まずは今までに書いた原稿を音読。

はっ。ミスタードーナツは略してミスドか。 モナドはモナードーナツか。 なんかすでにAAまでありそう。

はてぶのコメント

モナドナルドかもしれないと思った

関東人はモッナとか略すんだろう。 名前がモナで名字がドナルドだとか思ったら大間違いだ！

Amazon.co.jp： THE JAPANESE TRADITION ~日本の形~: DVD: ラーメンズ,NAMIKIBASHI,斉木しげる,山咲千里。 そして見たことのない動画がいっぱいあるっ。 これはっ。

YouTubeで見られる「鮨」や「土下座」はオフィシャルに公開しているものだそうな。 あれだけしかアップされてないからてっきりあれだけしかないものと勘違いしていた。

我々日本人は自国の文化についてもっと知るべきである

ぐぐったけど誰が言ったのかわからなかった。 でも生産性向上のテクニックとして有名なようだ。

By 西尾泰和 at 2007-03-17 16:20:12 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

Brainf*ckは、テープを破壊的に書き換えまくったり、 特定のコマンドが来たときには入出力を行ったり、と Haskellで書きにくそうな問題だ。 基本的にWorldという「ポインタの位置」「テープ」「実行すべきコード」「スタック」 の4つがセットになった型のオブジェクトを iterateのようなもので何度も何度も呼ぶ設計にしていたのだけど、 IOをする段になって悩む。

結局(IO World)というIOモナドで包んだ世界にしてやって、 いままで単純にWorldを返していた部分はreturn Worldに置き換える必要があった。 入出力をする部分は、getCharやputStrのような入出力をする命令とreturn Worldをbindして やる。

入出力周りは理解するまでが大変だったけども、 書いてみると行数的にさほど手続き型言語より面倒かというとそうでもないような。

7行割いている下のコードはライブラリにありそう。デフォルト値付き連想配列。

data VPair = V {pos::Integer, val::Integer} deriving Show
type Tape = [VPair]

getHead [] = 0
getHead (x:xs) = val x
getV tape p = getHead $ filter ((p ==).pos) tape
setV tape p v = modV (\x -> byte v) tape p
modV f tape p = (V p (byte (f (getV tape p)))):(filter ((p /=).pos) tape)

ループの処理は、
　開きかっこが実行されたときに
　　ポインタの指す値が0だったら、
　　　閉じかっこの次までソースコードを捨てる
　　非0だったら
　　　「残りのソースコード」をスタックに積み、
　閉じかっこが実行されたときに
　　スタックの先頭のコードを戻す

cond_exec w@(World p t c s) =
  if getV t p == 0 then
    w{commands = skipCommands c}
  else
    w{stack = c:s, commands = tail c}

jump_back w@(World _ _ _ (s:ss)) =
  w{commands = s, stack = ss}

skipCommands (']':cs) = cs
skipCommands (_:cs) = skipCommands cs

w = newWorld
while True:
    w = step(w)
    if w.commands == "": break

iterateM f w =
  if (commands w == "") then
    return ()
  else
    f w >>= \nextW -> iterateM f nextW 

main = iterateM step newWorld

iterateMは終了条件をくくりだせば汎用の関数になるなぁ。 iterateM step ((== "").commands) newWorldの1行で済むようになる。

KEMURIがPythonの半分の行数で書けて萌えたのだけど、 あれはIOがないから簡単に書けたのだ。

仕様がすでに明確に決まっていて(パズルとか)、 IOやユーザとのインタラクションがなければ(インタラクティブでないプログラムなら)楽。 というか、HaskellでGUIを作ったとしたら、メインループでモナドを使う必要があるから、 既存のGUIライブラリのほとんどは使えないわけだなぁ。

import Data.Char

data World = World {
  data_p::Integer, tape::Tape,
  commands::String, stack::[String]
} deriving Show

data VPair = V {pos::Integer, val::Integer} deriving Show
type Tape = [VPair]

test1 = "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++."
test2 = "++++++++[>++++++++<-]>+."
test3 = "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>."

newWorld = World 0 [] test3 []

getHead [] = 0
getHead (x:xs) = val x
getV tape p = getHead $ filter ((p ==).pos) tape
setV tape p v = modV (\x -> byte v) tape p
modV f tape p = (V p (byte (f (getV tape p)))):(filter ((p /=).pos) tape)

inc = (+ 1)
dec = (subtract 1)
byte n
  | n < 0 = n + 256
  | 255 < n = n - 256
  | otherwise = n

mod_data f w@(World p t _ _) = w{tape = modV f t p}
inc_data = mod_data inc
dec_data = mod_data dec

mod_ptr f w@(World p _ _ _) = w{data_p = f p}
inc_ptr = mod_ptr inc
dec_ptr = mod_ptr dec

cond_exec w@(World p t c s) =
  if getV t p == 0 then
    w{commands = skipCommands c}
  else
    w{stack = c:s, commands = tail c}

jump_back w@(World _ _ _ (s:ss)) =
  w{commands = s, stack = ss}

skipCommands (']':cs) = cs
skipCommands (_:cs) = skipCommands cs

step w@(World p t (c:cs) s) = case c of
  '+' -> dump (inc_data w){commands = cs}
  '-' -> dump (dec_data w){commands = cs}
  '>' -> dump (inc_ptr w){commands = cs}
  '<' -> dump (dec_ptr w){commands = cs}
  '[' -> dump (cond_exec w)
  ']' -> dump (jump_back w)
  ',' -> input_data w
  '.' -> print_data w

dump :: World -> IO World
dump w = return w
{-
dump w =
  do print w
     return w
-}


print_data :: World -> IO World
print_data w@(World p t cs _) =
  do putStr [chr $ fromInteger $ getV t p]
     dump w{commands = tail cs}

input_data :: World -> IO World
input_data w@(World p t cs _) =
  do c <- getChar
     dump w{tape = setV t p (toInteger (ord c)),
            commands = tail cs}

iterateM f w =
  if (commands w == "") then
    return ()
  else
    f w >>= \nextW -> iterateM f nextW 

main = iterateM step newWorld

By 西尾泰和 at 2007-03-17 13:18:27 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

どうやらWindows XPでは、すべて英数字のファイル名だと1行表示だが、2バイト文字や半角スペースなどが含まれているとファイル名が2行表示されるようだ。しかも、頭が英数字で始まり途中から2バイト文字が入っていると、2行目は2バイト文字から表示されるという仕掛けになっている。

夏のプロシンでなにか発表しろといわれているので、 たぶんそこでこの発言の真意が明らかになります(ぉ)

それから、自分で作ったRealっていう型に変換するために i2r :: Integer -> Realと q2r :: Rational -> Realを作り、 名前を使い分けるのが面倒なので下のようにしたら、 Rationalの所だけエラー。type Rational = Ratio Integerなのが関係しているのか？ よくわからない。

class Realizable a where
  toReal :: a -> Real

instance Realizable Integer where
  toReal = i2r

instance Realizable Real where
  toReal = id

instance Realizable Rational where
  toReal = q2r

    Illegal instance declaration for `Realizable Rational'
        (The instance type must be of form (T a b c)
         where T is not a synonym, and a,b,c are distinct type variables)
    In the instance declaration for `Realizable Rational'

By 西尾泰和 at 2007-03-17 13:17:34 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

__ 0.2にバージョンアップ。 0.1では「ROT ROTの後にはROTをおかない、DUPのあとにはDUPをおかない」というルールを入れていたのだけど、これでは「ROT DUP ROT DUP ...」でどんどん無駄に長いスタックを作れてしまう。そこで 「ROT ROTの後にはDUPをおかない、DUP　ROTの後にはDUPをおかない、 DUP　ROTの後にはROTをおかない」というルールを追加した。 厳密には「目的の文字列を出力するための最小の命令列にはこれらの命令列が含まれていない」ということを証明しないといけない。

でもとりあえずgも出力されるようになった。

(H): `^^^^^^^^^^'^"^^
(o): `^^^^''^"^^^^^^^^
(g): `^^^^^^'^''^"^^^^^
(J): `^^^^'^'^'^'^"^^^^^

僕が以前手で書いたJをスタックに積むコードは

`"^^"^^^^"^^"^^^^^'"^^"^^'"^^"^^"'^"^^

`^^^^'^'^'^'^"^^^^^

__ ダメだ。「u」の計算が終わらない。 まだまだだ。 アドホックな枝刈りでは解決できない。 冷静に考えてみよう。

スタックにn個積んである状態から、スタックに1個しかないじょうたいに行く過程では、 かならずn-1個の状態を通る。積まれた数が減る命令がXORだけだから。 というわけでn個からn-1個に変化する過程に注目しよう。

言い忘れたけども今回はNOTは使わないことにする。 証明していないけどもなくても構わないと思うので。

そうすると、ROTとDUPとXORの組み合わせで何ができるか、という話になる。 ROTで上3つを並び替えるのが一番深くまで触る命令だから、 スタックのそれより深い部分は無視していい。 つまりa b c -> ... -> x y。

ROTとXORとDUPの組み合わせでできる命令列のうち、 長さ3のスタック[1, 2, 3]を与えて実行すると スタックの長さが2になるような命令列を抽出(take 10)

^: Just [3,4]
'^: Just [6,1]
"^^: Just [2,4]
''^: Just [5,2]
"^'^: Just [6,0]
"'^^: Just [2,4]
'"^^: Just [4,1]
'''^: Just [3,4]
"^"^^: Just [2,4]
"^''^: Just [4,2]

重複するものを取り除く。

^: Just [3,4]
'^: Just [6,1]
"^^: Just [2,4]
''^: Just [5,2]
"^'^: Just [6,0]
'"^^: Just [4,1]
"^''^: Just [4,2]

重複するものを取り除くところで下のようなことをしていたので無限ループに突入(苦笑)

uniq = foldl uniqAdd []

uniqAdd xs x = 
  if not(any (== (stack x)) (map stack xs)) then
    (x:xs)
  else
    xs

"^^: Just [2]
"'^"^^: Just [1]
"''"^^^: Just [0]

次にXOR連打で長さ3まで縮めてから、63通りの「正しい方法」で2に縮めて、 そこから3通りの正しい方法で1に縮めて判定。 …というような探索をすればいい気がする。解が見つかったら長さを枝かりに使う。

重要なのは「探索するごとにスタックの長さが1ずつ短くなる」ということ。 探索空間が有限になったので深さ優先で探索できる。 今度はそれを実装することにしよう。

ここまでやってもまだ最短ではないんだよなぁ。 1文字ずつ生成しているから。 例えば"d!"と表示するのに"d"と"!"を別々に作るより、 "Hello, world!"の最後の2文字を使って一度に2つ作る方が短いコードになるはず。

-- Kemuri ソルバ
import Data.Char
import Data.Bits

-- main = print $ start_kemuri "`|"

-- main = print $ showCode solve

-- main = print $ take 10 (bfs visit start)

-- main = print $ isGoal (Situation "" (km_xor (km_xor (km_dup (stack start)))))
-- main = putStr.show $ solve "H"

-- main = do input <- getContents
--          putStr (unlines (map format (map (:[]) input)))

main = putStr.format $ "g"

format goal =
  "(" ++ goal ++ "): " ++ (show (solve goal))

solve goal = (filter (isGoal goal) (bfs visit start)) !! 0

isGoal _ (Situation _ Nothing) = False
isGoal goal (Situation _ (Just x)) =
  x == map ord goal

showCode (Situation code _) = reverse code

bfs :: (a -> [a]) -> a -> [a]
bfs f = bfs' . (:[])
  where bfs' [] = []
        bfs' xs = xs ++ bfs' (xs >>= f)

visit :: Situation -> [Situation]
visit (Situation code Nothing) = []
visit (Situation code stack)
  = [Situation ('^':code) (km_xor stack)]
     ++ add_rot code stack ++ add_dup code stack

add_dup code stack@(Just xs)
  = if length xs < 15 then
      if head code == '"' then []
      else if take 2 code == "'\"" then []
      else if take 3 code == "''\"" then []
      else [Situation ('"':code) (km_dup stack)]
    else
      []

add_rot code stack
  = if take 2 code == "''" then
      []
    else if take 2 code == "\"'" then
      []
    else
      [Situation ('\'':code) (km_rot stack)]


data Situation =
  Situation {doneCode::String, stack::Stack}

instance Show Situation where
  show x = reverse $ doneCode x

start = Situation "`" (km_push (Just []))

operate_stack :: Stack -> Char -> Stack
operate_stack stack c = case c of
  '^' -> km_xor stack
  '~' -> km_not stack
  '\'' -> km_rot stack
  '"' -> km_dup stack
  '`' -> km_push stack
  _ -> stack

type KemuriResult = Maybe String

kemuri :: Stack -> String -> KemuriResult
kemuri stack (c:code)=
  case c of
    '|' -> if stack == Nothing then
              Nothing
           else
              add (km_mkstr stack) (start_kemuri code)
                where add (Just x) (Just y) = Just (x ++ y)
                
    c   -> kemuri (operate_stack stack c) code

kemuri Nothing _ = Nothing
kemuri _ []= Just ""

start_kemuri :: String -> KemuriResult
start_kemuri code = kemuri (Just []) code

type Stack = Maybe [Int]

km_xor :: Stack -> Stack
km_xor (Just (x:(y:rest))) = Just ((xor x y):rest)
km_xor x = Nothing

km_not :: Stack -> Stack
km_not (Just (x:rest)) = Just ((complement x):rest)

km_rot :: Stack -> Stack
km_rot (Just (x:(y:(z:rest))))  = Just (y:z:x:rest)
km_rot x  = Nothing

km_dup :: Stack -> Stack
km_dup (Just (x:rest)) = Just (x:x:rest)

km_push :: Stack -> Stack
km_push (Just xs) = Just (map ord "Hello, world!" ++ xs)

km_mkstr :: Stack -> KemuriResult
km_mkstr (Just xs) = Just (map chr xs)
km_mkstr Nothing = Nothing

^: Just [3,4]
'^: Just [6,1]
"^^: Just [2,4]
''^: Just [5,2]
"^'^: Just [6,0]
'"^^: Just [4,1]
"^''^: Just [4,2]
"'^'^: Just [5,3]
'"^'^: Just [5,0]
''"^^: Just [1,2]
"^'"^^: Just [4,0]
"'^"^^: Just [1,4]
"'^''^: Just [7,1]
'"'^'^: Just [3,6]
''"^'^: Just [3,0]
"^''"^^: Just [0,2]
""^'^'^: Just [4,3]
"''"^^^: Just [0,4]
'"^'"^^: Just [1,0]
'"'^"^^: Just [2,1]
'"'^''^: Just [7,2]
''"'^'^: Just [6,5]
"^'"'^'^: Just [2,6]
"^''"^'^: Just [2,0]
""^'^''^: Just [7,0]
"'^''"^^: Just [3,1]
"''"^^'^: Just [5,1]
'""^'^'^: Just [1,6]
'"''"^^^: Just [0,1]
''"'^''^: Just [7,4]
"^'"^'"^^: Just [0,0]
"^'"'^''^: Just [6,2]
"^''"'^'^: Just [6,4]
"'^"'^''^: Just [6,3]
"'^'"'^'^: Just [2,5]
'"^'"'^'^: Just [4,5]
'"''"^^'^: Just [3,2]
"^'""^'^'^: Just [0,6]
""^'^"'^'^: Just [7,3]
"'^'"'^"^^: Just [1,3]
"'^''"'^'^: Just [5,7]
'"^'"'^''^: Just [5,4]
'"'^"'^''^: Just [5,6]
"^'"^'"'^'^: Just [4,4]
"^'"''"^^'^: Just [2,2]
"'^"^'"'^'^: Just [1,5]
"'^"'^''"^^: Just [2,3]
"'^'""^'^'^: Just [3,5]
"'^'"''"^^^: Just [0,3]
"''"^^''"^^: Just [1,1]
'"^'""^'^'^: Just [0,5]
'""^'^"'^'^: Just [7,6]
'"'^''"'^'^: Just [3,7]
"^"'^''"'^'^: Just [4,6]
""^'^''"'^'^: Just [4,7]
"'^"'^'"'^'^: Just [1,7]
''""^'^"'^'^: Just [7,5]
''"'^''"'^'^: Just [6,7]
"^'""^'^"'^'^: Just [6,6]
""^'^"'^''"^^: Just [3,3]
"''"^^''"'^'^: Just [5,5]
'"'^"'^'"'^'^: Just [2,7]
""^'^"'^'"'^'^: Just [0,7]
""^'^"'^''"'^'^: Just [7,7]

^: Just [3]
"^^: Just [2]
"'^"^^: Just [1]
"''"^^^: Just [0]

By 西尾泰和 at 2007-03-16 17:54:39 | この記事へのリンクはこちらへ(パーマリンク)
フィードバック (0) | トラックバック (0)

僕は予算の消化が大嫌い。

相談した人が2桁多い額を消化していてびっくり。 あ、でも年度末に残ったお金と年間で消費したお金を比較するのはおかしいか。

とりあえず見積もり。 微妙に予算が残ってしまったら、例の付箋を買おう。 例の付箋ってなんだっけ。 「西尾　泰和　付箋　サイズ」で検索。

ST-MN3という3Mの付箋を買ってきました。決め手はサイズで、100mm×69mmと普通のメモ用付箋より微妙に狭く、長いものです。これ実はA4 用紙を8つ折りにしたスペース105mm×74mm(つまりA7)にちょうどはみ出さずに収まるサイズなので、A4の四つ折りサイズである超整理手帳の1 ページにちょうど2枚ぴったり貼ることができるわけなのです。

ただし超整理手帳自体は全然使っていない(ぇー)

スケジュールの密度の問題だと思う。 いろいろなスケジュールの管理方法とかがあるけど、 管理すべきデータの量によって適切な管理の方法が変わるのは当たり前。 僕のケースでは付箋で十分。

ただ、済んだ作業の記録は残らずにどんどん廃棄されている。 それでいいような気もするけど。 あとから「あー、あれなんだっけー」となるような情報は取っておく方がいいんだろうなぁ。 でも、それを紙の形で取っておくと検索性が低いから、 必要な情報だけhowmに転記とかがいいのかもなぁ。

公開しても問題ない情報なら上のように日記に書いておいてGoogleで検索するし。

そして必要を感じて検索した情報はこうやって転載することで次の時により見つけやすくする。

1ヶ月前は27と28を行き来するくらいだったのに、 数日前に29になり、今日はとうとう30歳に。

チョコパイがいけないんだ。

発音は「Scottish "loch"」のchに似ている、って言われてもね。 IPAの発音記号で言うと「x」。もしかしてTeXのXか。

オランダ語 - WikipediaによるとGという文字の発音は[x]か[?](yみたいなの)で、 両方とも軟口蓋摩擦音。有声軟口蓋摩擦音 - Wikipedia。

もろもろの情報から考えると、やっぱりTeXのXの発音で、仮