青木日記

■ Haskell grep

すんごく間が空いたけど Haskell grep。 引数からファイル読むのは面倒なので stdin しか対象にしません。

module Main (main) where
　
import System
import IO
import Text.Regex
　
main :: IO ()
main =
    do
        args <- getArgs
        doGrep $ mkRegex (head args)
　
doGrep :: Regex -> IO ()
doGrep re =
    do
        cs <- getContents
        mapM_ (\line -> case matchRegex re line of
                             Just _ -> putStrLn line
                             Nothing -> return ()) (lines cs)

うーむ、ARGF が欲すい。

■ Hugs

最近の Haskell にはライブラリが二種類ある。 主な違いはレイアウトで、新しいライブラリは階層化されている。 これを階層化ライブラリ (hierarchical library) と言う。

GHC はデフォルトで階層化ライブラリを使う。 Hugs はデフォルトで古いライブラリを使う。 Hugs で階層化ライブラリを使いたいときは runhugs +N とする。

■ よ

よくあることですが

秋葉原に行きました。

■ い

いつもどおり

軟派な PC パーツショップは素通りして末広町方面に向かいます。

……

ごめんなさい

嘘です。

ちょっとだけ寄りました。

Matrox のレイテストなヴィデオカード 「ぱへりあ」が見たかったんです。

■ あ

あ、

ラジオデパートに寄りましょう。

でも

ハードウェア素人のわたしにとって

半固定抵抗や生のコネクタはさすがに手強すぎます。

そんなわけで

地下 1F をざっと見るくらいです。

■ あ

あ、

ちょっとだけ Otto 5F (UNIX本舗) も見ておきましょう。

ところで

高いから買わないけど

PC サーバ屋には

なぜかときどき

Alpha が置いてあります。

Sun や hp は絶対に置いてないのに

Alpha だけあるんです。

どうしてでしょう？

どうやったら Alpha が PC サーバに見えるんですか？

もしかして

PS/2 端子が付いてたら全部 PC サーバですか？

■ さ

さて

今度こそ末広町方面に向かいます。

エロゲやエロゲやエロゲや同人エロゲ

を売っている店のあたりを通りすぎて奥に向かいます。

■ じ

ジャンク屋で ECC FP 16MB のメモリを二枚買いました。

あとで RS/6000 に付けてみることにします。

二枚でブランドが違うので

あぼーんかもしれません。

ドキドキですね。

■ さ

さる店に来ました。

この店は高いです。

バカ高いです。

でもなぜか Alpha がよく出ます。

そんなわけで

■ き

今日も Alpha が置いてありました。

あの紺匡体は

明らかに AlphaStation 500 です。

■ と

と、いうことで

確保してきました。

来週には

家の Alpha が三台になります。

■ つ

ついでに言うと

AlphaServer 800 もありました。

この AlphaServer 800 は

なぜか

他の店も合わせると 3 台もありました。

……

出所は同じ？

■ さ

さて

帰りますか。

おっとその前に

ちょっとだけラジオデパートに寄っていこう。

■ と

と言うわけで

なぜか

SparcStation5 が手元にあるんですが

どういうことですか？

いくら半額セールだからって

いくら 2415 円 (税込) だからって

いまさら SparcStation5 はないんじゃないですか？

MicroSPARC ですよ？

sun4m ですよ？

Solaris 9 でサポートが切られると一瞬噂になった sun4m ですよ？

■ し

しかも

その 2415 円 (税込) ですら所持金ギリギリで

電車賃が 10 円足りないというのは

どういうことですか？

ああ

あのときチチブデンキの前で生茶さえ買わなければ。

そう思っても後の血祭りです。

……

狙って外したギャクは寒いです。

■ さ

幸い (fortunately,)

御徒町から乗ると電車賃が 30 円下がります。

ただし

SS5 は

重いです。

MicroSPARC は

伊達じゃないんです。

不幸にして (unfortunately,)

カートなんて便利なもんは

持っていきませんでした。

今日は絶対に買わないぞ！ なんて決意して

カートを持っていかなかったんです。

でも

買わないでいられるはずが

ないじゃないですか。

現実を見ればよかったんです。

ていうか

金持ってけよ。

(唐突に完)