Skip to content

Instantly share code, notes, and snippets.

@nobsun

nobsun/excelColns.hs

Created August 8, 2014 00:23
Show Gist options
  • Save nobsun/5cdc8668e84a39519fb8 to your computer and use it in GitHub Desktop.
Save nobsun/5cdc8668e84a39519fb8 to your computer and use it in GitHub Desktop.
Download ZIP
Excelカラム名の生成（改） ref: http://qiita.com/nobsun/items/fbb9bcda0bf5c65b4e8d
Raw
excelColns.hs
import Control.Monad (liftM2)
excelColns :: [String]
excelColns = concat $ tail $ iterate (liftM2 (:) ['A'..'Z']) [""]
Raw
excelColons2.hs
import Control.Monad (replicateM)
excelColns :: [String]
excelColns = [1..] >>= (`replicateM` ['A'..'Z'])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment