Haskell - putStr 与 putStrLn 和指令顺序

Question

这个问题已经有答案了:

IO happens out of order when using getLine and putStr (3 个回答)

已关闭 9 年前。

假设我们有一个简短的 haskell 程序:

main = do putStr "2 + 2 = "
          x <- readLn
          if x == 4
             then putStrLn "Correct"
             else putStrLn "Wrong"

它产生什么输出？

4

2 + 2 = Correct

现在让我们再来一个:

main = do putStrLn "2 + 2 = "
          x <- readLn
          if x == 4
             then putStrLn "Correct"
             else putStrLn "Wrong"

这产生

2 + 2 =

4

Correct

其中粗体 4 是用户输入的。

任何熟悉 Haskell 的人都可以向我解释一下这是为什么吗？我怎样才能得到想要的结果，即

2 + 2 = 4

Correct

Answer 1

行缓冲。在写入完整的文本行之前，输出缓冲区不会“刷新”。

两种解决方案:

1. 手动刷新缓冲区。 (putStr 后跟 hFlush stdout。)
2. 关闭缓冲。 (hSetBuffering stdout NoBuffering。)