哈斯克爾做語法和I/O

Question

我用一個簡單的程序玩弄在Haskell：

hello :: String -> String 
hello s = "Hello, " ++ (trim s) ++ "!\n" 

trim :: String -> String 
trim [] = [] 
trim s = head $ words s 

main :: IO() 
main = do putStr "\nPlease enter your name: " 
      name <- getLine 
      hstring <- return $ hello name 
      putStr hstring 

這是我期待的輸出：

Please enter your name: John Doe 
Hello, John! 

這工作當我加載預期該程序轉化爲ghci。然而，當我編譯使用該程序

ghc -o hello.exe hello.hs 

啓動，等待輸入，然後同時打印兩個提示：

John Doe 
Please enter your name: Hello, John! 

爲什麼是交互式環境和編譯器之間不同的行爲，我怎樣才能讓編譯器做我想做的事？

在此先感謝您的幫助！

Answer 1

這是常見問題。您的線路正在緩衝。使用：

import System.IO 

main = do 
    hSetBuffering stdout NoBuffering 
    ... 

此外，您的代碼有點...獨特。例如，你說：

hstring <- return $ hello name 
putStr hstring 

當你可以這樣做：

let hstring = hello name 
putStr hstring 

或者只是：

putStr $ hello name