ストリームの終わりまでhaskellで読む

Question

私はかなりハスケルに新しいです。ストリームの終わりまでコンソールから行を読み続け、大文字ですべてを出力したいと思います。これまでのところ、私は

import Data.Char 

main = myLoop 

myLoop = do inp <- getLine 
      if (inp == "x") 
       then putStrLn "Bye!" 
       else do putStrLn(map toUpper inp) 
         myLoop 

を持っているしかし、私はif (inp == "x")状況を回避し、ストリーム条件の終わりと交換する方法を見つけ出すように見えることはできません。要するに

、私はSystem.IOからC++

Answer 1

たくさんこれは道あなたが本当にのために求めているものを超えて、私はこのパターンを使用します。interact：

myFun :: String -> String 
myFun = ... 

main = interact (unlines . myFun . lines) 

あなたの機能myFunは、標準入力とのすべての行に対して実行されますが結果は標準出力に送られます。

Answer 2

使用isEOFでwhile (cin >> line)にHaskellの同等を探しています。

import System.IO (isEOF) 
import Data.Char 

main = myLoop 

myLoop = do done <- isEOF 
      if done 
       then putStrLn "Bye!" 
       else do inp <- getLine 
         putStrLn (map toUpper inp) 
         myLoop 

Answer 3

また、遅延IOに依存することもできます。

import Data.Char 

main :: IO() 
main = do 
    inp <- getContents 
    let ls = lines inp 
     upcased = map (map toUpper) ls 
    mapM_ putStrLn upcased 

Answer 4

別のオプションは、そのドキュメントhereを見つけることができますwhenを使用することです：

import System.IO (isEOF) 
import Data.Char (toUpper) 
import Control.Monad (forever, when) 
import System.Exit (exitSuccess) 
main = myLoop 

myLoop = forever $ do 
       done <- isEOF 
       when done $ putStrLn "Bye!" >> exitSuccess 
       inp <- getLine 
       putStrLn (map toUpper inp) 
       myLoop 

そうでなければ、答えはthe one by @dave4420と同じです。