Ручка полузамкнутая ошибка в Haskell?

Question

Я получаю эту ошибку в GHCI:

*** Exception: <stdin>: hGetLine: illegal operation (handle is semi-closed)

После выполнения этого кода:

main = do 
    interact $ unlines . fmap proccess . take x . lines 
    readLn :: IO Int 

И я уверен, что причина take x. Есть ли лучший способ читать только x строки ввода с использованием взаимодействия или is interact просто сольный плеер?

Answer 1

То, что вы пытаетесь сделать, невозможно с interact. За кулисами interact претендует на полноту stdin для себя с hGetContents. Это ставит ручку в состояние “ полузакрытого состояния ”, что препятствует дальнейшему взаимодействию с ручкой, кроме ее закрытия, так как весь ее вход уже потреблен (лениво).

Попробуйте прочитать конечное число линий с —

import Control.Monad (replicateM) 

getLines :: Int -> IO [String] 
getLines n = replicateM n getLine 

Answer 2

Концептуально interact потребляет все стандартного ввода. Поэтому нет смысла звонить по телефону readLn.

читать только заданное количество строк, использовать что-то вроде:

import Control.Monad 

main = do input <- replicateM 10 getLine 
      ... 

Здесь input будет список (точно) 10 строк.

Все становится более сложным, если вы хотите разрешить меньшее количество строк или если вы хотите прекратить чтение, когда вы сталкиваетесь с особым условием.