http://ja.doukaku.org/21/ f = take 100 $ concatMap sequence $ scanl1 (++) $ repeat [['A'..'Z']]

http://ja.doukaku.org/20/ nが11以上になると表示がくずれるYO。あとやたらintersperseしてて見苦しい。 (追記) これ全然ダメだ...またやっちゃった (追追記) 修正した import Data.List amida n = mapM_ print $ tail $ transpose (f ++ [line]) where lin…