हैकेल

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") हालत से बचने और धारा हालत के लिए एक अंत के साथ बदलने के लिए कैसे नहीं कर पा रहे।

संक्षेप में, मैं सी में while (cin >> line) को हास्केल के समकक्ष ++

Answer 1

यह आप वास्तव में क्या के लिए पूछ रहे हैं परे रास्ता जाता है, लेकिन मैं इस पद्धति एक बहुत का उपयोग करें: interact:

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

main = interact (unlines . myFun . lines) 

आपका समारोह myFun मानक इनपुट के हर लाइन और के खिलाफ निष्पादित किया जाएगा परिणाम मानक आउटपुट को भेजा गया।

Answer 2

System.IO से उपयोग isEOF की तलाश में हूँ।

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

आप भी आलसी आईओ पर भरोसा कर सकते हैं।

import Data.Char 

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

Answer 4

एक अन्य विकल्प when जिसका प्रलेखन here पाया जा सकता है का उपयोग करने के लिए है:

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 के समान है।