ハッカーと画家

5,6,12章が面白かった。

ProductName ハッカーと画家 コンピュータ時代の創造者たち
ポール グレアム
オーム社 / 2520円 ( 2005-01 )


心の持ちようの指針的なもの。

信濃鶴

今夜は信濃鶴で。コメヤスさんで購入。

信濃鶴

食中酒としては申し分ない。燗つけてもいいし、冷やで飲んでもしっかりしている。そのまま飲み続けても飲み飽きしなくてよいですな。

豚肉の中華風炒めものとあわせた。

陸奥八仙と青煌

先週末に静岡に行ったときに、コメヤス酒店にお邪魔して、色々試飲させてもらい、何本か購入。

陸奥八仙

これは燗をつけていい感じ。もうちょいガシッとしててもいいけど大吟だからかな。今度純米あたりを買ってみよう。

青煌

青煌は山梨のお酒で、酵母につるばら酵母とかいうのを使っていて、香りというか味わいがちょっと違う。試しに燗つけたらえらい事になったのでお燗向きではない。

食中酒って感じじゃないよなーってことで、ブログ更新しながら飲んでたりするけど、なんかもうちょっと欲しい感。アマゾン的三ツ星。

MAWP 5章はSearching

Minimax,Alpha-beta,Killer moveで検索すると将棋のサイトによくあたる。

ProductName Mastering Algorithms With Perl
Jon Orwant
Oreilly & Associates Inc / 2960円 ( 1999-07 )


Heap::Fibonacciってのがいまいちよく分からなかったのでRadium Software Developmentを後で読む。

twitterはじめてみた

いまさら感満載だが。voxに書いてるのが書きなぐりとかつぶやきっぽくなってきたのでtwitterを使ってみることに。

http://twitter.com/kzfm

クイックソート

Perl

sub qsort {
  my $pivot = pop @_ || return;
  return qsort( grep { $_ <  $pivot } @_ ),
         $pivot,
         qsort( grep { $_ >= $pivot } @_ );
}

Haskell

qsort []     = []
qsort (p:xs) = qsort lt ++ [p] ++ qsort gteq
                 where
                   lt   = [x | x <- xs, x < p]
                   gteq = [x | x <- xs, x >= p]
  • grep { $_ < $pivot } @_ だと(代入するために)左側で待ち受けてる感が強いんだけど、
  • ( grep { $_ < $pivot } @_ ) と書くとリスト内包表記に見えてきた。

トラットリア カプリ

富士に住んだら、

おー静岡市って近いじゃん

と特に何も考えずに、静岡に出かけていったので昼をどこで食べるか悩んだ。

結局伊勢丹のなかのイタリアンファミレスっぽいところで。

松坂屋の地下にあったカツカレーも気になったんだけどユッキーが食べるものがないということで却下された。

ゆったりの席(子供椅子付き)で満足のユッキー。

20071123075

カキとトマトソースのパスタ。

20071123076

牡蠣も大きかったし、なかなか美味しかった。

MAWP 4章終了

明日からどうせまた忙しくなるので、今日は時間をとって一日中MAWPを読んでた。

ProductName Mastering Algorithms With Perl
Jon Orwant
Oreilly & Associates Inc / 2960円 ( 1999-07 )


ひたすらソート。

シェルソートってのはバブルソートの従兄弟のようなもんだ。名前の由来は実はメタファーじゃないんだよ。単に考えたヒトの名前からとっただけだヨ(超意訳)

と、豆知識を仕入れつつ。

radix sortってのは知らなかった。後ろから順番に仕分けしていくイメージのアルゴリズムかな。

ソート一覧

  • selection
  • bubble
  • insertion
  • shell
  • merge
  • heap
  • quick
  • radix
  • counting
  • bucket

とこれらのハイブリッド。

日本酒専用冷蔵庫

超欲しい。

日本酒専用冷蔵庫

買う、絶対。

MAWP3章終了

linked listはHOPでやったので、binary heapsを実装してみたりとか。

ProductName Mastering Algorithms With Perl
Jon Orwant
Oreilly & Associates Inc / 2960円 ( 1999-07 )


ヒープ