2007-07-14 アルファベットの繰り上がり Haskell どう書く?org から。 atoz = map return ['A'..'Z'] next pre = [ h++t | h <- pre, t <- atoz ] start = concat $ iterate next atoz