軽い追加。やっぱ、日本語はあるのでその対応と例外処理。

こっちから行くときは、encodeString

import qualified Codec.Binary.UTF8.String as U
mkdat = do c <- conn
           HS.inTransaction c dats 
           HS.disconnect c
             where 
               dats c = mapM (\q -> HS.execute c (U.encodeString q)) datas

帰ってきた時は、decodeStringでうまくいくようです。

コード片としてPerl/Net::FTPをよく利用していますが、前回に続きこの部分もNetwork.FTP.Clientを使ってHaskellで書いてみました。ダウンロード対象を記述した以下の形式のファイル

# 行頭# はコメント行
remote_file_name,local_file_name
:
:

を読み込んでサーバからダウンロードしリネームして保存するだけのサンプルです。

Project Euler Problem66できたんだけど前回同様肝心なところは理解できずでなんかダウナー気味。Haskell勉強のお題ではじめたPEなので別に数学的なところがわからなくても一向かまわないわけだけどせっかく解くのだからもう少し理解したいなぁ。と痛切に思う次第。ということで、ペル方程式というのがあるらしく、

Stop!の文字をうっかり無視（？）してGHC-6.12.1をインストールしてしまいました。これってHaskell Platformとは違って必要最小限のパッケージしかバンドルしていないんですね。一番上に大きく書いてあるのに....というわけで早速、mtlがないよとか言われてなんだそりゃ？状態。とりあえずcabalはセットアップしてあったので助かりましたがこの先もチクチクとあれがないとかこれがないとか言われると思うとちょっとげんなり。

仕事用のマックにはcabalをセットアップしていなかったからhttp://d.hatena.ne.jp/ymotongpoo/20091227/1261905296を参考にして慌ててセットアップ。HTTPのところでmtl/network/parsecがないと言われましたのでとりあえずhttpパッケージはこれらのパッケージに依存することがわかりました。幸い、すべてhaskell.org/packageにあるものを使ってcabalのセットアップは完了しました。考えてみればProject Euler以外にHaskellのコードを書いている訳じゃないので案外勉強になるかもしれない... （Problem 60が未だにできないのですが...）

翻訳片手に再びトライ。この章にあるdo構文は、ghci環境では動作しないこともあり等価の(>>=）を使い（原著p77,翻訳p93参照）ます。また、ghci環境下ではPrelude.>>=と重複するためすべてMainの修飾子を付加しています。

8.10 (1) int::Parser Intを定義せよ

7.8 (1) [f x|x <- xs, p x]をmapとfilterを使って書き直すとどうなるか？

a'::[Int]
a' = map f (filter p xs)
  where
    xs = [1,3..50]
    f  = (*2)
    p  = (<18)

まあ、これはいいかな。

7.8 (2) 標準ライブラリの定義をみないでall,any,takeWhile,dropwhileを定義せよ

5.7 (8) シーザー暗号のプログラムを大文字も扱えるように変更せよ

だんだん、プログラムらしくなってきました。問題のシーザー暗号のプログラムがどこまでのことを指すのか今ひとつわかりませんでしたが、crackの箇所は大文字の出現頻度がわからないのでとりあえず、暗号化するところまで。まず、let2intを改造して大文字もint変換できるように修正します。

4.8 (1) 偶数の長さをもつリストを半分に分割するhalve::[a] -> ([a],[a])を定義せよ

havle::[a] -> ([a],[a])
havle xs = (take n xs, drop n xs)
where n = length xs `div` 2

リストの長さが奇数でもOKだが？例外をスローすべきなのか？この章までではエラー処理についてはなにも言及されていないのでこのままで。解答には、

halve xs = splitAt (length xs `div` 2) xs

というのもありました。通常、こちらを使うべきですね。