文字をHaskellで無作為に繰り返します。

Question

私は愚かなIRCボットのために関数を作成しようとしていますが、文字の一部がランダムに繰り返されるフレーズを返します。私が持っている問題は、ghcが好きな乱数を使う方法を見つけることができないということです。 this answerを使用しても、自分のコードをコンパイルするのに特に役立たないようです。でもdoブロックを使用して、私はまだIntを期待するとき、それはIO Intを発見したコンパイルエラーを取得しています方法関数にIO Int秒を渡すのトリックと

import System.Random 


-- Write bad 
baaad x y = "B" ++ (repeatA x) ++ "D " ++ (exclaim y) 

-- StartHere  
randomBad :: String 
randomBad = do 
    x <- randomRIO(5,10) :: IO Int 
    y <- randomRIO(0,6) :: IO Int 
    return $ baaad x y 


repeatA :: Int -> String 
repeatA x = rptChr "A" x 

exclaim :: Int -> String 
exclaim x = rptChr "!" x 

rptChr :: String -> Int -> String 
rptChr x y = take y (cycle x) 

。

Answer 1

randomBadはIOモナドではありません....それはStringタイプですが、あなたはそれがこの

randomBad :: IO String 

にこの

randomBad :: String 

タイプIO String

変更する定義されています

次に、メインのような別のIOアクションでこれを使用できるはずです。