Haskell程序运行报错：解析错误，需在do块中使用let？求修复

咱们先一步步拆解问题，搞定这个parse error on input '='的报错，再把整个程序理顺：

核心错误原因 #

1. 函数定义未正确分隔：你的sort函数两个子句（空列表和非空列表的处理）直接连在一起了，Haskell要求函数的不同定义之间必须有明确的分隔（换行或足够的空格），否则编译器会把它们当成混乱的表达式，直接触发解析错误。
2. getList实现的冗余写法：你用了不必要的列表推导式来包裹getNumber，拼接列表的方式也可以更高效简洁。
3. 不完整的注释与逻辑：原代码里main函数的注释截断了，而且缺少最终排序结果的输出逻辑。

修复后的完整可运行代码 #

-- 快速排序实现
sort [] = []
sort (x:xs) = sort [a | a <- xs , a <= x ] ++ [x] ++ sort [a | a <- xs , a > x]

-- 获取n个IO Int类型的操作列表
getList :: Int -> [IO Int]
getList 0 = []  -- 递归终止条件：读取0个数字时返回空列表
getList n = getNumber : getList (n - 1)  -- 用cons操作符直接构建列表，替代冗余的列表推导式

-- 从控制台读取单个整数的函数
getNumber :: IO Int
getNumber = do
    s <- getLine
    return (read s)

-- 主函数：处理输入、调用排序并输出结果
main = do
    putStrLn "请输入要读取的整数个数："
    p <- getNumber  -- 获取用户指定的数字数量
    lst <- sequence (getList p)  -- 将[IO Int]转换为IO [Int]，拿到所有输入的整数列表
    putStrLn "排序后的结果："
    print (sort lst)

关键修复细节 #

• 函数分隔修正：把sort的两个定义分成独立行，让编译器能识别这是同一个函数的不同分支逻辑。
• getList优化：将[a | a <- [getNumber] ] ++ getList (n-1)改成getNumber : getList (n-1)，:（cons操作符）是Haskell构建列表的标准方式，比列表拼接++更高效，写法也更直观。
• 完善交互逻辑：在main里添加了提示文字，让用户清楚该输入什么；同时补全了排序结果的输出步骤，让程序功能完整。
• 清理冗余代码：去掉了不必要的列表推导式，让代码更简洁易读。

现在编译运行这个版本，就能正常读取你指定数量的整数，输出排序后的结果啦。

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