如何在 Haskell 中打印 n 次相同的字符

Question

我想打印一个字符下划线 n 次，n 是 Haskell 中字符串的长度。

我该怎么做？

我的字符串是：“Available Chars (x)”，我想在那个句子下划一个字符，它的长度应该与“Available Chars (x)”完全相同。 但 x 是一个整数，所以它可以是“1”或“10”或“1000”等。所以长度是可变的。 我得到了长度，但我不知道如何打印该字符，只要字符串是...

Answer 1

使用replicate ：

underline :: String -> String
underline = flip replicate '-' . length

这将为您提供一个字符串，它是字符 '-' 的 n 倍，其中 n 是输入字符串的长度。 它与以下内容相同：

underline = map (const '-')

然后您可以像这样使用它（例如，如果yourString = "Available Chars (111)" ）：

> putStrLn yourString >> putStrLn (underline yourString)
Available Chars (111)
---------------------

Answer 2

知道了！

replicate n 'charHere'

例如，如果要重复字符'-' 12 次：

replicate 12 '-'

Answer 3

一种可能性是（重新）实现replicate ，例如如下，

replicate' :: Int -> a -> [a]                
replicate' n x = if (n <= 0) then [] else (x : replicate (n-1) x)