HaskellのStateTの使い方を理解するため、
乱数の上限値を保存するコードを書こうとしているのですが、いまいち分りません。以下現在のコードです
import System.Random
import Control.Monad.State
getRandom :: Int -> IO Int
getRandom x = getStdRandom $ randomR (0,x)
getCurrent :: StateT Int IO Int
getCurrent = do
i <- get
x <- lift $ getRandom i
return x
updateMax :: x -> StateT Int IO ()
updateMax x = do
put x
main = do
a <- flip evalState 0 $ do
updateMax 1000
getCurrent
print a
どうなれば上限値を更新・保存するように出来るでしょうか?
命令型ならこんな感じのコードになると思います。
Max = 0;
func getRandom = RandRange(0,Max);
func main = {
Max=100;
print(getRandom()); // 出力 50 等
Max=1000;
print(getRandom()); // 出力 500 等
}