AyaMorisawa · December 23, 2015 14:11 · ghost · Dec 22, 2015
diff --git a/hage.hs b/hage.hs
 import System.Random

 main = do
  gen <- getStdGen
  let xs = ["hage", "はげ", "ハゲ", "ﾊｹﾞ" ,"禿" ,"彡⌒ミ"]
  mapM_ putStr [xs !! i | i <- randomRs (0, length xs - 1) gen]
	import System.Random

	main = do
	gen <- getStdGen
	let xs = ["hage", "はげ", "ハゲ", "ﾊｹﾞ" ,"禿" ,"彡⌒ミ"]
	mapM_ putStr [xs !! i \| i <- randomRs (0, length xs - 1) gen]