问题是以下表达式失败：

ghci>  read "1 2 3 4" :: [Int]
*** Exception: Prelude.read: no parse

类型[Int]的read解析器期望读取一个包含有效Haskell语法列表的字符串：

ghci> read "[1,2,3,4]" :: [Int]
[1,2,3,4]

并且不接受空格分隔的整数列表。阅读一个 single integer仍然需要该单个整数是有效的Haskell格式，但由于这只是编写整数字面量的常用方式，因此它可以按预期工作：

ghci> read "1" :: Int
1

所以，你可以使用函数words将字符串"1 2 3 4"分成每个包含一个整数的字符串：

ghci> words "1 2 3 4"
["1","2","3","4"]

然后mapread函数在结果字符串列表上，一次一个整数：

ghci> map read (words "1 2 3 4") :: [Int]
[1,2,3,4]

修订后的方案：

main = do
    putStrLn "Enter a list of integers:"
    input <- getLine
    let xs = map read (words input) :: [Int]
    putStr "The entered list is: "
    print xs

• almost* 可以做你想要的，除了它用Haskell语法打印列表：

Enter a list of integers:
1 2 3 4
The entered list is: [1,2,3,4]    <-- Haskell syntax for list

如果您想以输入的方式打印列表，可以将print xs替换为：

putStrLn (unwords (map show xs))

这里，表达式unwords (map show xs)是map read (words input)的逆表达式，它将列表恢复为原始字符串格式。