Haskellでシェア変数を作成するには？

Question

ハスケルの新機能です。最近、私はHaskellによってゲームを作りようとしていました。そのゲームでは、複数のスレッドを作成するためにConcurrentを使用します。

data Msg = C Char | Time 

forkIO $ userThread chan 
forkIO $ processThread startTimer 

userThread :: MVar Msg -> IO() 
userThread chan = forever $ do 
    c <- getChar 
    putMVar chan (C c) 
    showStr(show c) 

processThread :: MVar Msg -> IO() 
processThread chan = forever $ do 
    threadDelay (startTimer) 
    putMVar chan (Time) 

スレッド間で共有される他のデータをどのように定義するかわかりません。 C++（static double xxx）のような変数を定義して、どの関数でも参照できますか？

Answer 1

通常、このような変数はmain、または別のIOアクションで作成されます。

main = do 
    chan <- newEmptyMVar 
    startTimer <- newEmptyMVar 
    ... 
    forkIO $ userThread chan 
    forkIO $ processThread startTimer 
    ... 

は、「グローバル変数」（主にIORef sおよびMVar秒）を宣言するためにいくつかの方法がありますが、それらは、特に初心者で、危険な機能を伴い、そして避けることが最善です。このようなグローバル変数はほとんど不必要なので、より多くの型を必要とする場合でも、いくつかの引数を渡すほうがよい場合がよくあります。

さらに高度なコードでは、ReaderT r IOモナドを使用して、コードの冗長性を減らし、単純にMVarを渡します。しかし、冒頭では、変数を渡しても問題ありません。