GetLine在列表理解中

Question

我想在列表理解中构建一个矩阵.对于每一行,我需要getLine并解析它.

简而言之,我想做这样的事情.

fun = [ getLine | y <- [0..4]]

如果我运行此函数,而不是尝试从每个行的命令提示符getLine,我得到一个错误,因为使用'print'引起的(Show(IO String))No Instance.

我收到错误消息,但是我如何在列表理解中获取线条？

Answer 1

如果您想要列出一系列操作,请按顺序评估每个操作,并返回每个结果 - [IO a] -> IO [a]- 这是sequence:

fun = sequence [getLine | y <- [0..4]]

这可以简化为Control.Monad.replicateM:

fun = replicateM 5 getLine