主线程外的 ThreadDelay

Question

我一直在尝试编写一个函数，它可以逐个字母地打印出一个字符串，不带引号，并在每个字母之间暂停一点。例如，如果你给它“hello”，它会打印 h，然后等待，e，然后等待，然后 l，然后等待，然后 l，然后等待，o。但是当我尝试使用threadDelay 时，它会在主线程中暂停。所以它会暂停，然后一次打印所有内容。我试图在prints 函数中创建一个新线程，但它不起作用。帮助！

import Control.Concurrent as C

clean :: String -> String
clean s@[c]               = s
clean ('"':s)  
    | last s == '"'       = init s
    | otherwise           = s
clean ('\'':s) 
    | last s == '\''      = init s           
    | otherwise           = s
clean s                   = s

prints :: String -> IO()
prints [] = putStrLn " "
prints (x:xs) = do
    C.forkIO $ do
        putStr $ clean (show x)
        C.threadDelay $ 10000
        prints xs  

main :: IO()
main = do 
    prints "hello"

Answer 1

您的代码有一些问题。

首先，threadDelay 在 微秒 内接受一个参数，因此您添加的暂停太小而无法注意到。试试1000000。

其次，除非您在 stdout 上关闭缓冲，否则 IO 库将缓冲您的输出，因此您不会看到预期的延迟。你可以用System.IO控制这个：

import System.IO ( stdout, hSetBuffering, BufferMode(..) )

然后从main调用hSetBuffering：

hSetBuffering stdout NoBuffering

最后，分叉一个线程实际上是倒退了一步，因为程序不会等待分叉的线程完成，所以只需删除它。如果您真的希望它在后台运行，则需要使用 MVar 或类似的方法等待它完成，否则程序会自然先退出。