2007-03-21 パスカルの三角形 haskell 前に解いた気がするけど、思い出せない(兄さん頭が痛いよぉ)のでもう一度(?)書きます。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 ++ [f]