Haskell 自己的复制，首先是列表理解，然后是递归

Question

必须编写与复制函数具有相同效果的函数。

1. 列表理解：

我的尝试：

rep list = [ a | a <- list, _ <- [1..a]]

适用于 Ints，但我也想将它与 chars 一起使用。 像这样的：

rep 4 "Hello"   => "Hello", "Hello", "Hello", "Hello"

2 递归：

rep :: (Num i, Ord i) => i -> a -> [a]  
rep n x  
    | n <= 0    = []  
    | otherwise = x:rep (n-1) x  

字符也有同样的问题！

Answer 1

对于列表理解，这应该有效：

rep :: (Enum a, Num a) => a -> t -> [t]
rep num list = [ a | a <- [list], _ <- [1..num]]

或者以更有效和更好的形式（感谢@chi）：

rep num list = [ list | _ <- [1..num]]

演示：

λ> rep 3 3
[3,3,3]
λ> rep 3 "hello"
["hello","hello","hello"]

您的递归程序在这两种情况下都适用于我。