gistfile1.hs

--ちんちんっぽいことするやつ
import System.Random
chimpo :: String -> String
randomString :: String -> String

chimpo c = if take 4 c == "ABCDE"
		then c ++ ("なんか終わりました" ++ (show (length c )))
		else chimpo (randomString c)

randomString s = getStdRandom(randomR(0,4)) >>= \r -> case r of
	0 -> ("A" ++ s)
	1 -> ("B" ++ s)
	2 -> ("C" ++ s)
	3 -> ("D" ++ s)
	4 -> ("E" ++ s)

main = putStrLn (chimpo (randomString ""))