ザネリは列車を見送った ブログという名の備忘録

今年の夏にふと始めて1問目からちびちび解いてきたHaskellでプロジェクトオイラー、20問目突破！

『関数プログラミング入門　Haskellで学ぶ原理と技法』に、
「数を言葉に変換する」というこの問題にそのまま使える例があったので、それを利用して書き換えてみた。

16.ひねらずサクッと。17.力技でゴリ押し。18.解法を調べて何とかクリア、
の3本でお送りいたします。

補足2問まとめて。

今日も今日とてせっせとオイラー。

約数について、三角数について、イケてる書き方を教えてもらったのでさっそく試してみた。

こちらのアドバイスを元に、斜めに連続する4つの数値の積を求める関数を見直してみる。

-- 行列 grid から斜めの行列 diagonals を作成する
diagonals = (map catMaybes . transpose . zipWith (++) (iterate (Nothing:) []) . map (map Just)) grid

うーむ…これも詳しく読み解いていかないと理解が追いつかない。

Twitter でいただいたアドバイスを元に、maxLineProd をワンライナーで書き換えてみた。

-- 横一列の連続する4つの数字の積の最大値を取得
maxLineProd :: Integer
maxLineProd = maximum $ map (\line -> (maximum . map product . (!! 4) . transpose . map inits . tails) line) grid

こんな形。
map (\line -> f line) grid は line 変数を使用せずに map f grid と書けるので

maxLineProd = maximum $ map (maximum . map product . (!! 4) . transpose . map inits . tails) grid

さらに各行の maximum のリストを作ってからそのリストの maximum を取って最終的な値を求めているところを
bind(逆bind?)に書き換えて

maxLineProd = maximum $ map product . (!! 4) . transpose . map inits . tails =<< grid

こうなった。
うーむ…確かに正しく動くが処理内容を理解できなかったので細かく解読していこう。

うーむ、何か今回は力技でやっつけた感が…。
もっと効率良くエレガントに実現する方法があるように思うんだけどなぁ。
それから、以前の問題で使用した関数を流用するケースが出てきたからこちらのコメントを参考に
そろそろ共通的に使用できそうな関数を切り出してまとめたりするべきかな。

おいらのオイラー。