2005年09月17日

書くとこうなる

perm [] = []
perm [a] = [[a]]
perm (x:xs) = [ take i y ++ (x:drop i y) | y <- perm xs, i <- [1..length xs]]

ちなみに，y と i の生成順を逆にすると遅くなる．内側が先に確定して外側に行くので．

とうとう椅子の溶接部が壊れてしまったので安い椅子を探すついでに秋葉のヨドバシカメラへ行ってみた．各階をぶらぶらと歩き回りつつ，そろそろＤＶＤＲドライブ買い換えようかなと値段を見てみるが...　あまり安くないわな，普通に．Panasonic の-Rメディアが20枚1000円だったけど．それにしてもこう，私は人を見たいわけではないのですけど，と言いたいくらいに人人人...　明日あたりすごいことになるのかなぁ？行ってみるか，ドライブ買うついでに．

花映塚は今日委託販売開始なのでタワー積みになっていた．そして本日秋葉で見かけたメイドさんは5人でしたとさ．