アルファベットの繰り上がりです。ZZ→AAAに対応したかったのですが良い方法が考えられませんでした。 import Char import List main = putStr $ concat $ List.intersperse ", " $ take 100 $ map toAlphaStr [1..] toAlphaStr :: Int -> String toAlphaStr …