在这种情况下如何重复一个功能？ 哈斯克尔

Question

我有一个绘制一串字符串的函数和一个绘制一串字符串的函数：

duplicate :: [a] -> Int -> [a] -- Duplicates a string/array
duplicate dup n = concat $ replicate n dup

printLine :: String -> Int -> IO () -- Prints a line of strings
printLine str n = putStrLn $ duplicate str n

printBox :: String -> Int -> Int -> IO () -- Prints a box of strings
printBox str width height = putStrLn $ unlines $ replicate height $ duplicate str width

main :: IO ()
main = printBox "-" 10 10 -- Will print 10x10 box of "-" string

我注意到我应该在printBox使用printLine ，因为printLine是printBox功能的printBox 。

但是，我尝试了很多次，并且悲惨地失败了。 如何在printBox使用printLine来达到同样的效果？ 我应该以某种方式重复一遍吗？

Answer 1

您可以使用Control.Monad replicateM_来实现此目的，如下所示：

import Control.Monad

main :: IO ()
main = printBox "-" 10 10 -- Will print 10x10 box of "-" string

duplicate :: [a] -> Int -> [a] -- Duplicates a string/array
duplicate dup n = concat $ replicate n dup

printLine :: String -> Int -> IO () -- Prints a line of strings
printLine str n = putStrLn $ duplicate str n

printBox :: String -> Int -> Int -> IO () -- Prints a box of strings
printBox str width height = replicateM_ height (printLine str width)

实际上，该函数会复制您的monadic动作n次并丢弃结果。 文档可以在这里找到

演示