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

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

プログラミングHaskell　第二章練習問題。(Hugsを用いて実行はghc v6.10.4です）このあたりはまだ、余裕があります。(^^)

2.6 (1) 括弧をつけよ

-- 2^3*4
a=(2^3)*4
-- 2*3+4*5
b=(2*3)+(4*5)
-- 2+3*4^5
c=2+(3*(4^5))

2.6 (2) Hugsを用いて実行せよ。

*Main>: a
32
*Main> b
26
*Main> c
3074
*Main> d

2.6 (3) エラーを修正しHugsで実行せよ

テキストを読んでいるだけだとどうしてもダレてくるので思い切ってコードを書いてみました。お題は以下のようにデータベースから抽出したセミコロンで区切られた数値データを

30,773;50,838,846;7,230,463
1,637;1,410,874;288,999
30,218;39,266,091;13,714,126
23,434;53,026,153;6,621,278
6,181;2,781,656;850,041

桁数を揃えたレポートとして出力するスクリプトです。