前に何書いたか思い出せないからタグをつけることにしました。

前に解いた気がするけど、思い出せない(兄さん頭が痛いよぉ)のでもう一度(?)書きます。mapAccumLが使えると一撃なのだ。 import Data.List (mapAccumL) pascalTriangle = iterate f [1] where f x = let (f, s) = mapAccumL (\x y -> (y, x + y)) 0 x in s ++…

http://d.hatena.ne.jp/m-hiyama/20070125/1169702291 http://d.hatena.ne.jp/nskj77/20070318/1174204588のつづき プログラミング課題8を解いた。モナド出来たよ! *Main> processTemplate (Ts [T "hoge", Ph "fuga", T "piyo"]) $ con(C [("fuga", Ts [T "x…