Haskell与JS通过标准输入输出交互无响应问题排查

问题核心原因 #

Node.js 的execSync是同步等待子进程完全退出后才会返回所有输出。你的 Go 程序在 stdin 输入结束（EOF）时会正常退出循环并终止进程，而 Haskell 程序是无限递归的guess_loop，遇到 EOF 时readLn会抛出异常而非正常终止；同时可能存在 stdout 缓冲未及时刷新的问题，导致execSync一直等待子进程退出，最终出现无响应。

解决方案 #

1. 处理EOF并设置缓冲，让程序正常退出 #

修改 Haskell 代码，捕获readLn的EOF异常，同时强制设置行缓冲确保输出及时刷新：

import System.IO (hSetBuffering, stdout, stdin, LineBuffering)
import Control.Exception (catch, IOException)

main = do
  -- 提前设置stdin/stdout为行缓冲，避免管道通信时的块缓冲延迟
  hSetBuffering stdin LineBuffering
  hSetBuffering stdout LineBuffering
  guess_loop []

guess_loop xs = do
  -- 捕获EOF异常，遇到输入结束时正常终止循环
  catch (do
          x <- readLn
          let new_list = x:xs
          -- 用putStrLn替代putStr+换行，更简洁且自动换行
          putStrLn $ show $ doSmothing new_list
          guess_loop new_list
        ) (\(_::IOException) -> return ())

2. 改用批量输入处理（更适合外部调用场景） #

如果输入是一次性传入的多行数据，可以直接读取全部输入后逐行处理，避免递归循环的EOF问题：

import System.IO (hSetBuffering, stdout, LineBuffering)

main = do
  hSetBuffering stdout LineBuffering
  -- 一次性读取所有输入并按行拆分
  inputLines <- lines <$> getContents
  let values = map read inputLines :: [Int]  -- 根据你的实际数值类型调整
  process [] values
  where
    process _ [] = return ()  -- 输入处理完后退出
    process xs (v:vs) = do
      let new_list = v:xs
      putStrLn $ show $ doSmothing new_list
      process new_list vs

3. 终端模拟验证 #

先在终端模拟 Node.js 的调用方式，确认 Haskell 程序行为正常：

echo -e "1\n2\n3" | ./your-compiled-haskell-program

如果这里能正常输出结果并退出，说明程序适配了管道输入场景，Node.js 调用即可正常工作。

关键差异说明 #

Go 的bufio.Scanner.Scan()遇到 EOF 会返回false，循环自然终止进程；而 Haskell 的readLn在 EOF 时会抛出IOException，若不捕获会导致进程异常终止，且缓冲的输出可能无法被execSync捕获。处理 EOF+强制行缓冲是解决问题的核心。

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