1

我正在尝试遍历我使用repa创建的二维数组，到目前为止，我有在每个元素上调用的函数，但我不明白存在什么基本概念不会让我在该函数中执行表达式，我到目前为止是如下：

 drawTile ::(DIM2 -> Int) -> DIM2 -> Int
 drawTile f (Z :. i :. j) = do
   <this is where i want to do some IO>

 drawScene :: [GLuint] -> Array U DIM2 Int -> GLFW.Window -> IO()
 drawScene texs map win = do
   x <- computeP $(traverse map id drawTile)::IO (Array UDIM2 Int)
   return ()

你可以忽略关于纹理和 OpenGL 的东西，这将是一个游戏。当我尝试在 drawTile 函数中使用具有副作用的函数时出现编译错误。我如何在我想要的地方执行某种表达式（例如打印“hello”）？是否有其他更简单的方法可以将函数应用于 repa 数组中的每个元素？

4

1 回答 1

1

我做了用户 alec 建议的操作并返回了 IO 列表，然后使用以下函数将它们全部排序：

resequence_ :: [IO ()] -> IO ()
resequence_ = foldr (>>) (return ())

再次感谢您的帮助。为了将来参考，我错误地传递了 IO，问题不在于 repa。

于 2016-10-30T12:08:32.600 回答