Haskell中如何简洁读取单按键至指定键？现有代码异常求助

你判断的完全正确：sequence (repeat getChar)会试图执行无限个getChar IO动作——因为sequence对IO列表的处理是严格遍历整个列表，哪怕后面跟着takeWhile，也得先把所有IO动作执行完毕才会处理纯值。这显然不可能完成，导致程序会一直等待输入，永远轮不到takeWhile生效。

核心思路是让「终止判断」和「IO动作」同步执行，而不是先跑完所有IO再过滤。以下是几种实用方案：

1. 手动递归实现（最灵活，适合自定义处理逻辑） #

直接写递归逻辑，每次读取一个字符后立刻判断是否终止，完全贴合你的需求：

import System.IO

main = do
  hSetBuffering stdin NoBuffering
  hSetEcho stdin False
  chars <- collectChars []
  print chars
  where
    collectChars acc = do
      -- 这里直接替换成你的自定义IO处理函数即可
      c <- getChar
      if c == 'q'
        then return (reverse acc)  -- 因为是头插收集，最后反转恢复顺序
        else collectChars (c : acc)

2. 使用unfoldM（简洁优雅，依赖monad-loops包） #

unfoldM是专门用来生成IO动作产生的列表的工具，直到返回Nothing时停止：

import System.IO
import Control.Monad.Loops (unfoldM)

main = do
  hSetBuffering stdin NoBuffering
  hSetEcho stdin False
  chars <- unfoldM $ do
    c <- getChar
    if c == 'q'
      then return Nothing  -- 返回Nothing触发停止
      else return (Just c) -- 返回Just c将字符加入列表
  print chars

注：需要先通过cabal install monad-loops或stack install monad-loops安装依赖包。

3. 流式处理库（适合复杂场景，以conduit为例） #

如果你的实际处理逻辑涉及大量流式操作，conduit这类库天生支持惰性IO流处理：

import System.IO
import Data.Conduit (runConduit, (.|))
import Data.Conduit.List (unfoldM, takeWhileC)

main = do
  hSetBuffering stdin NoBuffering
  hSetEcho stdin False
  chars <- runConduit $ unfoldM (Just <$> getChar) .| takeWhileC (/= 'q')
  print chars

注：需要先安装conduit包。

内容的提问来源于stack exchange，提问作者Enlico