2007-07-14 アルファベットの繰り上がり haskell http://ja.doukaku.org/21/ f = take 100 $ concatMap sequence $ scanl1 (++) $ repeat [['A'..'Z']]