昨日の IO () さんからの宿題の回答。といっても myInits と myTails のほうはまだ解決してない。とりあえずわかったのから。 cf. id:takatoh:20060513:exercise2 まずは myUnlines を１行で書くことから。これはリストの最後に空文字列をつけてやればいい。…

IO () さんから無限リストに対応できてない，と指摘を受けた myInits。これもできたと思う。 cf. id:takatoh:20060513:exercise 昨日のは length を使って結果のリストの長さを決めてしまったのがいけなかった。これじゃ無限リストには対応できない。で，は…

もう一つ思いついた。といっても「次の行」を作るところは一緒なんだけど。 cf. id:takatoh:20060512:pascal （コメント欄も参照） pascalTriangle = iterate (\xs -> zipWith (+) (0:xs) (xs ++ [0])) [1] takeAndPut n = (((putStr . unlines) . map show)…