条件で終了する連続入力を読み取る

Question

私はハスケルにとって全く新しいです。私は一連の値を受け入れるコードを書いています。

eg. 
1 2 
3 4 
0 0 

入力が停止し、私は次のことを行っているが、それは動作しません値1 2 3 4

を表示する必要があるときで最後の条件。助けが必要です。

main = myLoop 

myLoop = do inp <- getLine 
      if (inp == "0 0") then 
       putStrLn "END" 
      else do putStrLn(inp) 
         myLoop 

Answer 1

まず、ソースでタブを使用していないことを確認してください。私はputStrLnと、このようなmyLoopをラインアップしていた仕事にあなたの例を得るために：

第二

myLoop = do inp <- getLine 
      if (inp == "0 0") then 
       putStrLn "END" 
      else do putStrLn(inp) 
        myLoop 
       -- ^note putStrLn and myLoop are at the same column 

、私はあなたが数字/単語のリストで読みたいと仮定し、質問にお答えします。

readNums :: IO [String] 
readNums = do 
    x <- getLine 
    if x == "0 0" 
    then return [] 
    else do xs <- readNums 
      return (words x ++ xs) 

使用例：

main = do nums <- readNums 
      print nums