简单Haskell循环

Question

我刚开始学习Haskell，但是现在没有循环是非常令人沮丧的。我想出了如何为函数编写循环。然而，我的问题是，我想在迭代循环时输出一些结果。似乎我必须使用debug来执行这个简单的任务。

所以现在我只想举一个例子，说明如何在主结构中打印字符串10次。

换句话说，我想这样做10次：

main = do  
    putStrLn "a string" 

谢谢。我觉得这对我的任务很有启发。

Answer 1

我也是Haskell的初学者，我有一个不太优雅但实用有用的解决方案。

main = do 
    putStr result
    where
        string = "a string"
        result = concat [string ++ "\n" | i <- [1,2..10]]

在这里，我们定义了一个列表，其中的元素是要打印出来的字符串，后跟一个新行字符。

Answer 2

哈斯克尔的IO在刚开始的时候有点棘手，因为它是基于单子的。

但你的问题有一个简单的解决方案：

main = replicateM_ 10 $ putStrLn "a string"

这是使用控件中的replicateM_组合器。Monad

它有许多有用的函数来组成和执行一元动作。

Answer 3

您可以定义一个递归函数，它可以打印n次“字符串”（n是函数的参数），如下所示：

printStringNTimes 0 = return ()
printStringNTimes n =
 do
  putStrLn "a string"
  printStringNTimes (n-1)

main = printStringNTimes 10

一种更通用的方法是定义一个函数，该函数可以将任何IO操作重复n次：

repeatNTimes 0 _ = return ()
repeatNTimes n action =
 do
  action
  repeatNTimes (n-1) action

main = repeatNTimes 10 (putStrLn "a string")

上述函数已经存在于Control. Monad中，名称为replicateM_。