如何在Haskell中創建共享變量？

Question

我是Haskell的新手。最近，我試圖通過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 S）一些方法，但它們涉及不安全的功能，並且是最要避免的，特別是初學者。這樣的全局變量通常是不必要的，即使需要更多的輸入，通過傳遞幾個參數通常也更好。

在更高級的代碼中，可能會使用一個ReaderT r IO monad來減少簡單地通過MVar s的代碼的冗長度。但在開始時，傳遞變量很好。