ランダム文字列生成

generateRandString.hs

import System.Random

generateRandString :: (RandomGen g) => g -> [String]
generateRandString gen =
  [randomRs ('A', 'z') gen | x <- [0..]]

randString :: IO String
randString = do
  randomGen <- newStdGen
  let string = concat $ generateRandString randomGen
  return string

main :: IO ()
main = do
  string <- randString
  print $ take 50 string