青木日記

■ Haskell head

http://www.rubycolor.org/maki/d/200302b.html#19_t1

あ、高橋さん版の head が。 Haskell の遅延評価ってカッコいいですよね。 hGetContents とかも、ファイルの中身を全部読んでいるように見せかけて、 実はアクセスしたときに初めて読んでくれるという……。 mmap とちょっと似てるかな。

■ Haskell tail

あ、コンパイルしたら端末からの入力でも動きました。 ということは runhugs が原因なのか。なんでだろうなあ。 もしかして raw モードになってるとかそういう話か？ (それはそれで嫌だな)

■ unsafePerformIO

うっ……なんか名前からしてヤヴァそうな…… ^^;;;

そういえば Gentle ... にもちょこっとだけ 存在がほのめかしてありましたね。 デバッグ用として、ルール外で IO する裏技が。

■ Haskell tail (2)

をを！ 山下さん版 tail カコイイ！ コードのコア部分はこんなかんじ。

doTail :: IO String -> IO ()
doTail ios
 = do { cs <- ios
      ; putStr $ unlines $ reverse $ take 10 $ reverse $ lines cs
      }

文法まわりは設定次第で他にもいろいろ書きかたがあるらしい。

うーむ、慣れるとずいぶんきれいに書けるんだなあ。 というより今回はアルゴリズムの発想が悪かったか。 全部オンメモリにしない点に無駄にこだわりすぎた。

ちなみに

... $ take 10 $ ...

というふうに関数を 1 引数分だけ適用できるとこもなかなか凄い。 第 2 引数だけ後から与えて返り値を取れる。