為什么 Haskell 不能正確排序這些 IO 操作？

Question

我的一個朋友問我為什么要學習 Haskell。 為了展示 Haskell 的強大功能，我編寫了一個顯示素數列表的小程序：

main = do
    putStr "Enter the number of prime numbers to display: "
    number <- fmap read getLine :: IO Int
    print . take number . filter isPrime $ [2..]

isPrime :: Integer -> Bool
isPrime n = not . any ((== 0) . mod n) $ [2..floor . sqrt . fromInteger $ n]

該程序按預期工作，但存在輕微異常。 它在從用戶那里獲取輸入號碼后打印提示消息，結果如下：

12
Enter the number of prime numbers to display: [2,3,5,7,11,13,17,19,23,29,31,37]

為什么 Haskell 沒有正確排序 IO 操作？ 我哪里錯了？

Answer 1

這看起來更像是緩沖而不是排序問題。 你在什么平台？ 您是否嘗試過強制無緩沖輸出？

hSetBuffering stdout NoBuffering -- from System.IO

Answer 2

stdin和stdout是兩個不同的文件，不需要任何連接。 以 Unix shell 命令grep為例：

$ seq 1 100 | grep 2$ | less

seq 1 100將數字 1 到seq 1 100打印到它的stdout ，即grep s stdin （ |將一個命令的stdout連接到另一個命令的stdin ）。 然后grep將與給定正則表達式匹配的行寫入其stdout ，它less s stdin 。

要強制寫入stdout （或任何其他文件），請使用System.IO hFlush ：

 hFlush stdout